|
▼チキ さん:
おはようございます。
>初めての投稿なのですがよろしくお願い致します。
>質問の内容ですが、
>
>ダウンロードしてきたファイルがそれぞれフォルダの中に入っています。
>そのフォルダ名は取得して"フォルダ名"というシートにA2から順に下へ一覧になっています。
>その一覧の名前のBOOKをA2から下に順に開いて、A1からB10000までコピーして
>USD_JPYチャートというまとめるためのBOOKに順に貼り付けたいと思っていますが、うまくいきません。
フォルダ名が実際、どのように入っているのか
例を挙げてください。
それから、「うまくいかない」と記述するのではなく、
「xxxという仕様で記述したコードですが、
実際に実行してみると、何も起こらずに終了してしまいます」
とか
「コードのこの箇所でXXXXというエラーが発生します」
等、詳細に記述してください。
>Sub 貼り付ける()
>
>Dim 取得フォルダ名 As String
>Dim ファイル名 As String
>
>行 = 2
>列 = 1
>
>Do While 取得フォルダ名 <> ""
' ↑取得フォルダ名が未入力でない間は ループ
' だけど、いきなり 未入力だから、ループしないでしょ?
' 大きい間違いはここだと思います。
>取得フォルダ名 = Workbooks("USD_JPYチャート").Sheets("フォルダ名").Cells(行, 1).Value
>ファイル名 = "C:\Documents and Settings\Owner\デスクトップ\為替レート\USD_JPY\レート\取得フォルダ名\.csv"
'この文字列と文字列変数の連結(だと思いますが)も記述が違うと思いますから、
'過去ログを調べてください。
>Workbooks(ファイル名).Open
>Sheets("USD_JPY_bid").Range("A1:B10000").Copy
>Workbooks("USD_JPYチャート").Sheets("レート").Cells(1, 列).Paste
>行 = 行 + 1
>列 = 列 + 2
>
>Loop
>
>End Sub
|
|