| |
デスクトップ内のフォルダ「data」内のエクセルファイルを開いて(転記先)転記元に転記するVBAを組みたいので、教えていただけますと幸いです。
方法
デスクトップ内のフォルダ「data」内のすべてのエクセルファイルを開く
↓
データを転記する（転記するセルの場所は一緒）
↓
名前を付けて別フォルダに保存
(保存先はデスクトップのdata2という場所)
(名前は転記元のBA124とBA125を指定して名前を付ける)
請求書_BA124_BA125.xisx
↓
loop処理（フォルダ内のエクセルファイル全て）
自分のマクロ（エラーが出てしまい詰まってしまいました）
Sub 転記先()
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim f As File
For Each f In fso.GetFolder(ThisWorkbook.Path & "\data").Files
Debug.Print f.Path
With Workbooks.Open(f.Path)
With .Worksheets(1)
with ws
wsData.Range("AZ8").Value = .Range("AZ8").Value
wsData.Range("AS16:AS22").Value = .Range("AS16:AS22").Value
end with
ActiveWorkbook.SaveAs Filename:=請求書_ & "_" ＆ "BA125" & "BA124" xisx
ActiveWorkbook.Close False
Loop
End sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 19/5/25(土) 15:15 -
