Excel VBA質問箱 IV

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

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


48 / 13339 ツリー ←次へ | 前へ→

【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 回答[未読]

【80839】フォルダ「data」内のエクセルファイルを...
質問  ようじ 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

【80840】Re:フォルダ「data」内のエクセルファイ...
発言  マナ  - 19/5/25(土) 18:09 -

引用なし
パスワード
   ▼ようじ さん:

あちこちに質問されているので
お急ぎなのかと思いましたが
そうでもないようですね。

マルチポストに関する基本方針です。
ご一読ください。

------
マルチポストについて
別のサイト(掲示板)にまったく同じ目的の投稿をすることを、一般に「マルチポスト」といいます。当質問箱では、マルチポストは原則認めています。つまり、ほかのサイトで質問したことをこのサイトで質問してもかまわないということです。

しかし、もしマルチポストをするのなら、可能な限り「○○にも同じ質問を出しました」ということを宣言してください。そして、仮に他のサイトで解決したのなら、ここにも必ずその顛末を書いてください。質問しっぱなし、というのはモラルに反します。「解決したからいいや」というのではありません。

また、マルチポストを明示的に禁止しているサイトとのマルチポストをしてはいけません。

【80841】Re:フォルダ「data」内のエクセルファイ...
お礼  ようじ E-MAIL  - 19/5/25(土) 18:57 -

引用なし
パスワード
   すみません。ルールを存じ上げず大変失礼しました。

【80842】Re:フォルダ「data」内のエクセルファイ...
回答  ようじ E-MAIL  - 19/5/25(土) 19:06 -

引用なし
パスワード
   Yahoo知恵袋

エクセルの学校

にて同時に質問させて頂いてます

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