フォローしませんか?
シェア
三輪
2020年9月2日 19:26
【マクロ実践編3】の考え方指定フォルダに入っているファイルをA列に全て書込む Dim cnt As Long Dim fs As New Scripting.FileSystemObject Dim basefolder As Scripting.Folder Dim tarPath As String tarPath = ThisWorkbook.Path S
2020年8月31日 19:39
【マクロ実践編1】の処理の部分に適用できるA列に指定の文字が入力されているとき、その右のセルB列に指定の文字を含んだファイル名を書込む◆PointLikeの書き方とflgを立ててファイルが見つかったらfor文から抜けることFor i = 2 To maxRow flg = False For Each mysubfile In mysubfiles If mysubfile.
2020年8月16日 17:14
Dir関数を使った際、フォルダ名にピリオドが含まれているとそのフォルダを認識してくれなかったので[FileSystemObject]で書き直して対応した件フォルダ名にピリオドが含まれていても問題なく検索してくれる◆準備参照設定:[Microsoft Scripting Runtime]◆変数宣言Dim tarPath As String tarPath = ThisWorkbook.