Excel VBA質問箱 IV

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

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


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

1618 / 76807

←次へ　｜　前へ→


	【80839】フォルダ「data」内のエクセルファイルを開いて(転記先)転記元に転記するVBA

ようじ

- 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

0 hits

▼

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