Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

52724 / 76732

←次へ　｜　前へ→


	【28839】Re:取得してあるCSVファイルの情報を別の...

チキ - 05/9/15(木) 23:35 -


	引用なし

	パスワード

最終的にこのように書き直してみたのですが、

以下の

ファイル名 = "C:\Documents and Settings\Owner\デスクトップ\為替レート\USD_JPY\レート\" & "取得フォルダ名" & "\ USD_JPY_bid.csv"

のところで

実行時エラー"1004"
'C:\Documents and Settings\Owner\デスクトップ\為替レート\USD_JPY\レート\" & "取得フォルダ名" & "\ USD_JPY_bid.csv'が見つかりません。

と出てしまいます。

これは取得フォルダ名が文字列変数として認識されていないということなのでしょうか？
もしくはこのような構文は全く見当違いなのでしょうか？
全く分かりません。

どなたか教えて下さい。お願いします。

Sub 貼り付ける()

Dim 取得フォルダ名 As String
Dim ファイル名 As String

行 = 2
列 = 1
取得フォルダ名 = Workbooks("USD_JPYチャート").Sheets("フォルダ名").Cells(行, 1).Value

Do While 取得フォルダ名 <> ""

ファイル名 = "C:\Documents and Settings\Owner\デスクトップ\為替レート\USD_JPY\レート\" & "取得フォルダ名" & "\ USD_JPY_bid.csv"
Workbooks.Open Filename:=ファイル名
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