Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


52764 / 76732 ←次へ | 前へ→

【28798】取得してあるCSVファイルの情報を別のBOOKに順に貼り付けていきたい
質問  チキ  - 05/9/14(水) 23:17 -

引用なし
パスワード
   初めての投稿なのですがよろしくお願い致します。
質問の内容ですが、

ダウンロードしてきたファイルがそれぞれフォルダの中に入っています。
そのフォルダ名は取得して"フォルダ名"というシートにA2から順に下へ一覧になっています。
その一覧の名前のBOOKをA2から下に順に開いて、A1からB10000までコピーして
USD_JPYチャートというまとめるためのBOOKに順に貼り付けたいと思っていますが、うまくいきません。
以下に自分で作ってみたものを書きますがどこがおかしいのでしょうか?


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

0 hits

【28798】取得してあるCSVファイルの情報を別のBOOKに順に貼り付けていきたい チキ 05/9/14(水) 23:17 質問
【28807】Re:取得してあるCSVファイルの情報を別のB... ichinose 05/9/15(木) 7:40 発言
【28834】Re:取得してあるCSVファイルの情報を別の... チキ 05/9/15(木) 20:51 質問
【28839】Re:取得してあるCSVファイルの情報を別の... チキ 05/9/15(木) 23:35 質問
【28844】Re:取得してあるCSVファイルの情報を別の... ichinose 05/9/16(金) 7:54 発言
【28847】Re:取得してあるCSVファイルの情報を別の... チキ 05/9/16(金) 9:30 お礼

52764 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free