□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 親トピックをトピックトップへ ]
| このトピックに書きこむ |
|---|
| このトピックに書きこむ |
|---|
| Re[5]: フォルダ内の全てのエクセルファイルを処理するには | |
|---|---|
[195377] Re[5]: フォルダ内の全てのエクセルファイルを処理するには- ■  / 記事引用/メール受信=ON■
□投稿者/ はっしー -(2022/11/12(19:50)) □U R L/ マナ様 ありがとうございます。 ht tps://excel-vba.work/2020/10/30/%E3%80%90vba%E3%80%91%E3%80%90%E5%86%8D%E5%B8%B0%E3%80%91%E6%8C%87%E5%AE%9A%E3%83%95%E3%82%A9%E3%83%AB%E3%83%80%E9%85%8D%E4%B8%8B%EF%BC%88%E3%82%B5%E3%83%96%E3%83%95%E3%82%A9%E3%83%AB%E3%83%80/ 上記サイトを見てやってみたのですが、上手くいかずに困っていました。 callで呼び出したマクロを、ステップインで確認できないので 何が悪いのか、どうすればよいのか・・・ 会社のPCでマクロを作ってやってるので、持ち出せないので ココで伝えるのが難しいのです。 マナ様のマクロで試してみます。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[195375] Re[4]: フォルダ内の全てのエクセルファイルを処理するには- ■記事引用/メール受信=OFF■ □投稿者/ マナ -(2022/11/11(22:02)) □U R L/ 再帰は苦手なので
Sub test()
Dim fdg As FileDialog
Dim cmd As String, s
Dim k As Long
Dim wb As Workbook, ws As Worksheet
Set fdg = Application.FileDialog(msoFileDialogFolderPicker)
If Not fdg.Show Then Exit Sub
cmd = "cmd /c dir """ & fdg.SelectedItems(1) & "\*.xlsx"" /b/s"
s = Split(CreateObject("wscript.shell").exec(cmd).stdout.readall, vbCrLf)
For k = 0 To UBound(s) - 1
Set wb = Workbooks.Open(s(k))
For Each ws In wb.Worksheets
ws.Range("A5").Value = "aaa"
ws.Range("B6").Value = "bbb"
Next
wb.Close True
Next
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195374] Re[3]: フォルダ内の全てのエクセルファイルを処理するには- ■  / 記事引用/メール受信=OFF■
□投稿者/ �粛り^ｽ�ｽ�ｽ�ｽ[ -(2022/11/09(22:18)) □U R L/ MK さん、ありがとうございます。 FileSystemObject というのがよくわかりません。 dirで処理するものだと思ってました。 一つ、思うような結果になりそうなサイトがありましたが、 イマイチ分かりません。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[195373] Re[2]: フォルダ内の全てのエクセルファイルを処理するには- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2022/11/09(20:55)) □U R L/ >再起処理 再帰処理、でした。 | |
[195372] Re[1]: フォルダ内の全てのエクセルファイルを処理するには- ■記事引用/メール受信=OFF■ □投稿者/ MK -(2022/11/09(20:50)) □U R L/ サブフォルダの処理なら、 FileSystemObject 再起処理 サブフォルダ で検索してみてください。 ↓などがヒットすると思います。 ht tps://excel-vba.work/2020/10/30/%e3%80%90vba%e3%80%91%e3%80%90%e5%86%8d%e5%b8%b0%e3%80%91%e6%8c%87%e5%ae%9a%e3%83%95%e3%82%a9%e3%83%ab%e3%83%80%e9%85%8d%e4%b8%8b%ef%bc%88%e3%82%b5%e3%83%96%e3%83%95%e3%82%a9%e3%83%ab%e3%83%80/ | |
[195371] フォルダ内の全てのエクセルファイルを処理するには- ■親トピック/記事引用/メール受信=ON■ □投稿者/ はっしー -(2022/11/09(19:54)) □U R L/ いくつかサイトを見てやってみたのですが、うまくいきません。 やりたいことは、 あるフォルダ内の全てのエクセルファイルを処理したい サブフォルダのエクセルファイルも処理したい 処理内容は、 エクセルファイル内の、すべてのシートの A5セルの内容を、"aaa"に書き換える B6セルの内容を、"bbb"に書き換える ファイルを上書き保存する ということです。 エクセルのバーションは、365です。 よろしくお願いします。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |