Excel VBA質問箱 IV

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

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


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

8816 / 76732

←次へ　｜　前へ→


	【73484】Re:別ブックからのコピペについて（VBA）

さわ - 13/1/15(火) 1:20 -


	引用なし

	パスワード

返信ありがとうございます！

「エラーはそんなデータ存在しない」って感じのエラーだったんですね！

一個一個、調べて見ました！
佳さんが言っている
Msgbox Application.Workbooks("b.xls").Worksheets("Sheets(1).Name").Cells(1, 1).Value
Msgbox Application.Workbooks(OpenFileName).Worksheets("Sheets(1).Name").Cells(1,1).Value

をたたいて見たら、やはり同様のデータが存在しないメッセージが。

Msgboxにどう表示されるのか一個一個確認してみたら、

Msgbox OpenFileName
　→フルパス\ファイル名
　　ファイル名だけ取得するはずだったので、Dir(OpenFileName)で解決

Msgbox Application.Workbooks(OpenFileName).Worksheets("Sheets(1).Name").Cells(1,1).Value
　→実は、表記が間違っていることに気づいたこの部分
　　Worksheets("Sheets(1).Name")　誤
　　Worksheets(Sheets(1).Name)　　正

っていうことで、出来たものがこう変わりました！

　　Application.Workbooks(Dir(OpenFileName)).Worksheets(Sheets(1).Name).Cells.Copy _
　　Application.Workbooks("b.xls").Worksheets(Sheets(1).Name).Cells(1, 1)

だけど、
まだデータが受け取れていません。。

898 hits

▼

【73466】別ブックからのコピペについて（VBA） さわ 13/1/14(月) 5:40