Excel VBA質問箱 IV

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

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


237 / 75426 ←次へ | 前へ→

【80839】フォルダ「data」内のエクセルファイルを開いて(転記先)転記元に転記するVBA
質問  ようじ E-MAIL  - 19/5/25(土) 15:15 -

引用なし
パスワード
   デスクトップ内のフォルダ「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

58 hits

【80839】フォルダ「data」内のエクセルファイルを開いて(転記先)転記元に転記するVBA ようじ 19/5/25(土) 15:15 質問[未読]
【80840】Re:フォルダ「data」内のエクセルファイル... マナ 19/5/25(土) 18:09 発言[未読]
【80841】Re:フォルダ「data」内のエクセルファイル... ようじ 19/5/25(土) 18:57 お礼[未読]
【80842】Re:フォルダ「data」内のエクセルファイル... ようじ 19/5/25(土) 19:06 回答[未読]

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