|
お世話になっております。
あるひとから頂いたマクロを修正したいのですが宜しくお願いいたします。
・"エクセルエクスポート"というシートのデータが入力されています。
・そのデータを一旦すべて読み込んで、同じような形式になっている複数ファイルのある特定シート("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
|
|