こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Excel VBAを使って、Excelデータを別のExcelファイルに取り込みします

報告書にexcel VBAを使って、(報告書を開いたまま)報告書のデータを別のexcelファイル(一覧)に取り込みします。
Sub k()
Dim ブック As Workbook
Set ブック = Workbooks.Open("c:\テスト\" & "一覧.xls")
ブック.Worksheets("Sheet1").Cells(3, 2) = Worksheets("企業情報シート").Cells(3, 3)
End Sub
報告書の"Worksheets("企業情報シート").Cells(3, 3)"は書き方がおかしいみたいで、正しい書き方を教えてください。

投稿日時 - 2007-10-09 19:07:51

QNo.3415285

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

この下記コードは、報告書.xls にあります。
報告書.xls の 企業情報シート --> 一覧.xlsの Sheet1 シート
Sub test01()
Dim BK1 As Workbook
Dim BK2 As Workbook
Set BK1 = Workbooks.Open("C:\Documents and Settings\xxx\My Documents\一覧.xls")
Set BK2 = ThisWorkbook
BK1.Worksheets("Sheet1").Cells(3, 2) = BK2.Worksheets("企業情報シート").Cells(3, 3)
End Sub
Bk1 については、既存の場合Openか新規作成の場合ADDして名前を設定しておかないと、ダメのようです。
Bk2も明示的に設定して置いて、"企業情報シート"の特定に使わないと
ダメのようです。
B1は開いていると、注意メッセージが出ます。
最後の行で、BK2を省くと質問のようにエラーが出ます。

投稿日時 - 2007-10-09 20:29:23

お礼

助かりました。ありがとうございました。

投稿日時 - 2007-10-10 09:04:18

あなたにオススメの質問