Excel VBA質問箱 IV

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

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


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

55969 / 76732

←次へ　｜　前へ→


	【25528】Re:複数のシート

小僧 - 05/6/3(金) 11:26 -


	引用なし

	パスワード

▼MLC さん：
こんにちは。
Book2の標準モジュールに記述して実行してみて下さい。

Sub Test()
Dim WkbName As String
Dim Wkb As Workbook
Dim Wst As Worksheet
Dim MySheet As Worksheet
Dim I As Long
Dim J As Long
　　J = 1
　　WkbName = "C:\Book1.xls"
　　Set MySheet = ActiveWorkbook.ActiveSheet
　　
　　Application.Workbooks.Open (WkbName)
　　Set Wkb = ActiveWorkbook
　　　　For Each Wst In Wkb.Worksheets
　　　　　　With Wst
　　　　　　　　For I = 1 To .Cells(1, 1).End(xlDown).Row
　　　　　　　　　　MySheet.Cells(J, 3).Value = .Cells(1, 2).Value
　　　　　　　　　　MySheet.Cells(J, 4).Value = .Cells(I, 1).Value
　　　　　　　　　　MySheet.Cells(J, 5).Value = .Cells(I, 3).Value
　　　　　　　　　　J = J + 1
　　　　　　　　Next
　　　　　　End With
　　　　Next
　　Wkb.Close
　　Set Wkb = Nothing
　　Set MySheet = Nothing
End Sub

外していたらすみません。

0 hits

▼

【25502】複数のシート MLC 05/6/2(木) 15:58