Excel VBA質問箱 IV

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

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


11741 / 13645 ツリー ←次へ | 前へ→

【14424】あるひとから頂いたマクロを修正したいのですが いしかわ 04/5/28(金) 16:02 質問[未読]
【14429】Re:あるひとから頂いたマクロを修正したい... ちゃっぴ 04/5/28(金) 18:42 回答[未読]

【14424】あるひとから頂いたマクロを修正したいの...
質問  いしかわ  - 04/5/28(金) 16:02 -

引用なし
パスワード
   お世話になっております。
あるひとから頂いたマクロを修正したいのですが宜しくお願いいたします。
・"エクセルエクスポート"というシートのデータが入力されています。
・そのデータを一旦すべて読み込んで、同じような形式になっている複数ファイルのある特定シート("2-1")に書き込んで新しいファイル名で保存する。
・という形になっています。ファイルの中には"2-1"というシートの他に"3-1"というシートがあります。そこにも、"エクセルエクスポート"シートから読み込んだデータを書き込みたいのですが、コードのどこに記述すればよろしいのでしょうか?
宜しく御願いいたします。


Dim data(163, 38)
Sub filin()
  Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet

Sheets("エクセルエクスポート").Activate
For j = 1 To 163
For i = 1 To 38

data(j, i) = Cells(j + 9, i).Value
Debug.Print data(j, i)
Next i
Next j


'For i = 1 To 1
For i = 1 To 163
pathname = "c:\zzz\" & data(i, 2) & ".xls"
pathname2 = "c:\zzz\new" & data(i, 2) & ".xls"

 Set xlApp = CreateObject("Excel.Application")
 Set xlBook = xlApp.Workbooks.Open(pathname) 'オープンするファイル名

'Sheets("2-1").Activate
sn = "2-1"
Set xlSheet = xlBook.Worksheets(sn)
xlSheet.Activate
xlSheet.Cells(19, 7).Value = data(i, 13)
xlSheet.Cells(20, 7).Value = data(i, 14)
xlSheet.Cells(21, 7).Value = data(i, 15)
xlSheet.Cells(22, 7).Value = data(i, 16)
xlSheet.Cells(23, 7).Value = data(i, 17)
xlSheet.Cells(24, 7).Value = data(i, 18)
xlSheet.Cells(25, 7).Value = data(i, 19)

xlBook.SaveAs pathname2
  xlApp.Quit
  
  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing

Next i
  Set xlSheet = Nothing
  Set xlBook = Nothing
  Set xlApp = Nothing

End Sub

【14429】Re:あるひとから頂いたマクロを修正した...
回答  ちゃっぴ  - 04/5/28(金) 18:42 -

引用なし
パスワード
   snに代入すれば出来ると思います。(SheetNameの略?)

同時に実行させたいなら、ループさせるとよいでしょう。

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