画像ファイル名をパス付きで表示 -Sub Test2() Dim -

画像ファイル名抽出マクロが機能しない

mt2015様以前 https://okwave.jp/qa/q9432826.html で質問させていただいたものです。当時に作っていただいた Sub Sample() 　　sPath = "C:\Users\Owner\Downloads\通販素材\tsuhan_jp_5028_2018-02-26\setting_000002016\" 　　nRow = 2 　　sSubFol = Cells(nRow, 1).Text 　　Do While sSubFol <> "" 　　　　nCol = 10 　　　　sFileName = Dir(sPath & sSubFol & "\*.jpg") 　　　　Do While sFileName <> "" 　　　　　　Cells(nRow, nCol) = sFileName 　　　　　　sFileName = Dir() 　　　　　　nCol = nCol + 1 　　　　Loop 　　　　nRow = nRow + 1 　　　　sSubFol = Cells(nRow, 1).Text 　　Loop End Sub のマクロが当時は問題なく動いていたのですが、急にファイル名が抽出されなくなったのですが、どのような原因が考えられますでしょうか？

一致したファイル名を先頭に抽出させる方法

Sub Sample() sPath = "C:\Users\Owner\Downloads\base\setting_000002016\" nRow = 2 sSubFol = Cells(nRow, 1).Text Do While sSubFol <> "" nCol = 11 sFileName = Dir(sPath & sSubFol & "\*.jpg") Do While sFileName <> "" Cells(nRow, nCol) = sFileName sFileName = Dir() nCol = nCol + 1 Loop nRow = nRow + 1 sSubFol = Cells(nRow, 1).Text Loop End Sub こちらは、指定の商品番号と同じ商品番号の名前になっているサブフォルダ名のファイル名をK列以降に抽出するというvbaでつくられたプログラムです。実際の例で説明いたします。商品番号が１２３、サブフォルダ名１２３だとして、ファイル名が001.jpg,002.jpg.003.jpg,123.jpgという不規則なファイル名があったとします。上記のプログラムはファイル名の順番問わず K列から順番に001.jpg,002.jpg.003.jpg,123.jpgに抽出されるようになっております。しかし、仮名のファイルですが、123.jpgというファイル名が最初の列に抽出されたほうがこちらとしましても都合がいいので、同じ名前のファイルがあったら先頭に抽出できるようにしたいのですがどのようにしたらよろしいでしょうか？

複数フォルダに格納されたファイル名取得VBA

お世話になっております。あるフォルダに複数のフォルダが格納されており、更にそのフォルダの中にあるファイルの情報を取得するプログラムを書いたのですが、実行すると下記のようなエラーとなってしまいます。 ■エラープロシージャの呼び出し、または引数が不正です下から3行目、「buf = Dir()」が問題であることはわかるのですが、何が問題でどのように解決したらいいかわかりません。どなたかご教授の程よろしくお願い致します(>_<) ------------------------------------------------------------------------ Sub test() Dim buf As String Dim fName As String Dim msg As String buf = Dir("*.*", vbDirectory) Do While buf <> "" If GetAttr(buf) And vbDirectory Then If buf <> "." And buf <> ".." Then fName = Dir(CurDir & "\" & buf & "\" & "*.jpg") Do While fName <> "" cnt = cnt + 1 Cells(cnt, 1) = buf Cells(cnt, 2) = fName msg = msg & buf & "\" & fName & vbCrLf fName = Dir() Loop MsgBox msg End If End If buf = Dir() Loop End Sub ------------------------------------------------------------------------ これが実現できないと細かい作業を毎日繰り返す事となり、かなり業務不可が高いです。。繰り返しになってしまいますが、どなたかご回答よろしくお願い致します。

マクロ　IF条件分岐　疑問

マクロ初心者です。いろいろ参考に以下のマクロを作ってみたのですが、最初、私はnBold >0になると思いましたが、nBold < 0が正解のようですね。どうして0以下というふうにするのですか？ Sub AからF列に太字あればJ列に◎() For nRow = 1 To 7 nBold = 0 For nCol = 1 To 6 nBold = nBold + Cells(nRow, nCol).DisplayFormat.Font.bold Next nCol If nBold < 0 Then Cells(nRow, 7) = "◎" Else Cells(nRow, 7) = "" End If Next nRow End Sub

ExcelVBAでフォルダーからファルイ名を書き出しリンクを貼り、表示名を変える

下記のようなVBAをつくったのですがうまく行きません。 Option Explicit Dim ドライブ As String Dim フォルダ As String Dim 拡張子 As String Dim 記入シート As String Dim パス As String Dim ファイル名 As String Dim ディスプレイ As String　 Dim 貼付行 As Integer Dim ハイパーリンク As String Dim strVal As Variant 'Sub フォルダ中のファイル名をシートに書く() ドライブ = "C" 'ドライブを指定するフォルダ = "M．Co，\My Documents" 拡張子 = "*." & "JPG" 記入シート = "ファイル一覧" End Sub Private Sub 指定フォルダ中の指定拡張子のファイル名をシートに書く() Sheets(記入シート).Activate Cells.Clear 'すべてクリア Range("A1").Select パス = ドライブ & ":\" & フォルダ & "\" 'パスを組むファイル名 = Dir(パス & 拡張子) strVal = Dir(パス & 拡張子) (1)ディスプレイ = Left(strVal, "SEARCH(""."",strVal)-1") 貼付行 = 0 　　 Do While ファイル名 <> "" 　　貼付行 = 貼付行 + 1 Cells(貼付行, 1).Value = ファイル名 ActiveSheet.Hyperlinks.Add Anchor:=Cells(貼付行, 1), Address:=ファイル名, TextToDisplay:=ディスプレイファイル名 = Dir() '次のファイル名を取り出す Loop End Sub (1)がおかしいです。よろしくお願い致します。

VBAでExcelのセルの一覧からファイル名の変更が

こんにちは。会社で大量のファイル名を変更していますが、Excelで一覧からを変更できれば能率的なので作っていますが、困っています。下記のものです。 Sub リネーム() Dim i As Long　 Dim NEWファイル As String　 Dim OLDファイル As String　 Dim パス As String For i = 1 To Range("B65536").End(xlUp).Row パス = Cells(2, 1).Value OLDファイル = パス & Cells(i, 2).Value NEWファイル = パス & Cells(i, 3).Value If Dir(OLDファイル) <> "" Then Name OLDファイル As NEWファイル End If Next i End Sub ※A2にはC:\Documents and Settings\M．Co，\デスクトップ\リネームと入っています。B1には変更前の001.jpg、C1には変更するa-1.jpgとファイル名が入っています。実行してもファイル名は変更されません。エラーもでません。よろしくお願いします。

【VBA】　ファイル名の取得

２３歳OLです。会社でマクロを組んでいるのですが、できないところがあったのでご相談させてください。 ▼やりたいこと ================================================ ・フォルダを自分で指定して、選択したファイルの名前をシートに書き込む 1.txt 2.log 3.xls　とフォルダに入っていたら 1.txt 2.log 3.xls とシートに名前を書き込んでほしいです。・ファイルの種類はいろいろある。(txt.logなど) ================================================ ▼現在書いてみたコード ======================== Sub Sample1() Dim buf As String, cnt As Long Const Path As String = "" buf = Dir(Path & "*.*") Do While buf <> "" cnt = cnt + 1 Cells(cnt, 1) = buf buf = Dir() Loop End Sub ======================== これだと、初めから指定したフォルダしか取得することができないらしいです。そもそもConst Path As String = "このぶぶん" このぶぶんにフォルダを指定しても動きませんでした。？どこが原因なのでしょうか？ご教示お願いします。

Excel 2010 VBA:ファイル名を読み込む

下は複数のcsvファイルを一つに合体するVBAです。これにシートの右端に読み取ったファイル名を追加するにはどうしたらよいでしょうか。よろしくお願いします。 Sub macro1() Dim myPath As String Dim myFile As String Dim s As String myPath = ThisWorkbook.Path & "\" On Error Resume Next Kill myPath & "合体版.csv" On Error GoTo 0 myFile = Dir(myPath & "*.csv") If myFile = "" Then Exit Sub Open myPath & "合体版.csv" For Output As #1 Do Until myFile = "" Open myPath & myFile For Input As #2 Do Until EOF(2) Line Input #2, s Print #1, s Loop Close #2 myFile = Dir() Loop Close #1 End Sub

.xlsファイルが存在するパスを表示させたい

エクセルマクロ初心者です。 .xlsファイルをサブフォルダも含め検索し、A列にファイル名、B列にファイルが存在するパスを表示させるにはどうしたらいいでしょうか？検索するベースのディレクトリは決まっている”C:\temp”のでtemp以下、.xlsがどこに存在するのかを検索するマクロを組もうとしています。いろんな書き込みを探し、サブフォルダを含め、ファイル名を取得するものは発見できたので組み込んでみましたが、、パスの表示方法がわかりません。 cnt = 0 Call Sample3("C:\temp") Callでサブルーチンsample3に渡し、ファイル名を取得しています。　Dim cnt As Long Sub Sample3(Path As String) Dim buf As String, f As Object buf = Dir(Path & "\*.xls") Do While buf <> "" cnt = cnt + 1 Cells(cnt, 1) = buf buf = Dir() Loop With CreateObject("Scripting.FileSystemObject") For Each f In .GetFolder(Path).SubFolders Call Sample3(f.Path) Next f End With End Sub あとは、どのように書けばいいのでしょうか？宜しくお願い致します。

ファイルを探すプログラムで　c:\のみ動かない

ファイルを探すプログラムをネット頂き　テストしたのですが c:\ のみ　動かず　c:\*** は　そのフォルダーから下を探します e:\ は　全てのフォルダーを探します。ＷＩＮ８　ですが　どこで間違ってるのでしょうか？よろしくどうぞ Option Explicit Private g_dteDate As Date Private g_strEXT As String '参照設定　M-Scripting.Runtime Cells(1, 2).Value　に　探すアドレス　記載　c:\ 　e:\ 　c:\*** など Sub Sample_FileSearch2() 　　Dim vntF As Variant Dim objFSO As FileSystemObject Dim dteDate As Date Dim GYO As Long Dim cntFound As Long Set objFSO = New FileSystemObject ' FSO Rows("5:65536").ClearContents GYO = 4 ’ g_dteDate = DateAdd("m", Cells(3, 2).Value * -1, Date)　更新　不要 g_strEXT = UCase(Trim(Cells(2, 2).Value)) ' ルートフォルダから探索開始 Call Sample_FileSearch2_SUB(objFSO, _ objFSO.GetFolder(Trim(Cells(1, 2).Value)), GYO, cntFound) Set objFSO = Nothing ' 処理結果の表示 If cntFound = 0 Then MsgBox "見つかりません" Else MsgBox cntFound & "個見つかりました" End If End Sub '''******************************************************************************* ''' ファイル探索処理(再帰動作) '''******************************************************************************* Private Sub Sample_FileSearch2_SUB(objFSO As FileSystemObject, _ ByVal objFolder As Folder, _ GYO As Long, cntFound As Long) Dim objFolder2 As Folder Dim objFile As File ' サブフォルダの探索 For Each objFolder2 In objFolder.SubFolders ' サブフォルダ個々の探索(再帰動作) Call Sample_FileSearch2_SUB(objFSO, objFolder2, GYO, cntFound) Next objFolder2 ' このフォルダ内のファイルの探索 For Each objFile In objFolder.Files ' ここから条件判断 With objFile If (UCase(objFSO.GetBaseName(.Path)) = g_strEXT) Then GYO = GYO + 1 Cells(GYO, 1).Value = .Name Cells(GYO, 2).Value = .DateLastModified Cells(GYO, 3).Value = _ Left(.Path, Len(.Path) - Len(.Name) - 1) cntFound = cntFound + 1 End If End With Next objFile End Sub

実行時エラー　5　ファイル名の書き出し

これはどういう意味のエラーなのでしょう？ Const FolderName As String = "C:\Users" Sub ファイル名を書き出す() Dim myFile As String myFile = Dir(FolderName & "\*.*", vbDirectory) Do While myFile <> "" Debug.Print myFile myFile = Dir Loop End Sub このようにしてフォルダの中のファイル名を書き出していますがある特定のファイル名になると、myFile = Dirの部分で、実行時エラー　5 プロシージャーの呼び出し、または引数が不正が発生します。ファイル名をただ読み込んでるだけなのに、どうしてエラーが発生するのでしょうか？

VBA　一つのフォルダの中のフォルダ名とファイル名

一つのフォルダの中のフォルダ名とファイル名を取得したい場合は ************************************** Sub test() Dim MyFileName As String Dim MyFolderName As String Dim myFSO As Object Dim MyFolder As Scripting.Folder MyFolderName = "C:\" 'フォルダを取得 MyFileName = Dir(MyFolderName & "*.*") Do While MyFileName <> "" Debug.Print MyFileName MyFileName = Dir() Loop 'ファイルを取得 Set myFSO = CreateObject("Scripting.FileSystemObject") With myFSO With .GetFolder(MyFolderName) For Each MyFolder In .SubFolders Debug.Print MyFolder.Name Next End With End With Set myFSO = Nothing End Sub ************************************** の様にファイル名・フォルダ名をそれぞれループして取得しないとダメでしょうか？もうちょっとスマートなコードはありますか？

excelのファイルとセル値を書き出したい

excel2003を利用しています。とあるフォルダにある excelファイル名(自分自身のファイルを除く）を全て書き出して、且つ A１セルの値をB列に書き出すことを、やろうとvbaを作ってみましたが。最後のファイルのA1セルを書きだすところで、エラーになっていまいそこだけ空白になってしまいます。※写真参照記述は以下の通りです。どのように修正すればよいか教えていただけないでしょうか？また他にもっと優れた記述があれば、そちらも教えて欲しいです。よろしくお願いします。 Sub test() Dim buf As String, cnt As Long Dim Path As String Path = ThisWorkbook.Path & "\" buf = Dir(Path & "*.xls") cnt = 2 Do While buf <> "" If buf <> ThisWorkbook.Name Then cnt = cnt + 1 Cells(cnt, 1) = buf buf = Dir() Workbooks.Open Filename:=Path & "\" & buf MsgBox Workbooks(buf).Worksheets(1).Range("A1").Value Cells(cnt, 2) = Workbooks(buf).Worksheets(1).Range("A1").Value Workbooks(buf).Close End If Loop End Sub

ExelVBA　Dirでのファイル名検索について

VBA勉強中の者です。早速ですが質問させて頂きます。 CドライブのSample Picturesという様々な形式の画像があるフォルダの中から、 jpgとpngの画像のみ名前をsheet4のA1から下方向に書き出したいと考え、サイトや本で調べながら以下のコードを作成しました。 Sub sample() Worksheets(4).Cells.Clear Dim pngFileName As String Dim jpgFileName As String Dim CellsCount As Long Const path As String = "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\" pngFileName = Dir(path & "*.png") Do While pngFileName <> "" CellsCount = CellsCount + 1 Cells(CellsCount, 1) = pngFileName pngFileName = Dir() Loop jpgFileName = Dir(path & "*.jpg") Do While jpgFileName <> "" CellsCount = CellsCount + 1 Cells(CellsCount, 1) = jpgFileName jpgFileName = Dir() Loop End Sub 一応目的は達成出来ているのですが、スッキリできません。 Dir(path & ~ の部分で、ワイルドカードの指定文字が "*.jpg" と "*.png" の２種類ある時にはわざわざDo White Loopを２回繰り返しさないといけいないのか疑問です。仮に画像ファイルだけでなく、何種類もの拡張子を指定して抽出したい時にはそのつどコードを増やさないといけないのでしょうか？考えた末 PictFileName = Dir(path & "*.jpg" Or path & "*.png")や PictFileName = Dir(path & "*.jpg" Or "*.png")などとしてみましたが型が一致しないというエラーが出てしまいました。もっとシンプルに分かり易くしたいです、どなたかご助力お願いいたします。当方Excel2003を使用しております。

フォルダのファイル数をｖｂａで取得したい

vbaなのですが、フォルダにgifファイルがたくさんはいっていますが、その数を数えるコードを教えてください。今は、 Sub Macro7() Dim File As String Dim i As Long File = Dir("C:\*.*", vbDirectory) Do While File <> "" File = Dir i = i + 1 Loop MsgBox "ファイル数は" & i & "です" End Sub のように、全てのファイル数をカウントして求めています。

vba　ファイルの移動について

フォルダAの中にあるたくさんのpdfファイルの中から、ファイル名の頭文字３つがE列に記載した「aaa」だったらフォルダBに移動させるという内容にしたいです。ネット検索などで、近いものを作成しましたが（下に貼り付け）、下から４行目、「fso.moveFile FolderA & "\" & fileName, FolderB & "\" & fileName」で「実行時エラー'53'　　ファイルが見つかりません。」　とエラーが出てしまいます。どの様に書き直せばよいのでしょうか？どなたかご存じでしたら、ぜひお教え下さい。よろしくお願いします。エクセル2010を使用しています。 Sub CheckAndMoveFiles() Dim FolderA As String Dim FolderB As String FolderA = Range("D1").Value FolderB = Range("B2").Value Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim ws As Worksheet Set ws = ActiveSheet Dim lastRow As Long lastRow = ws.Range("E" & Rows.Count).End(xlUp).Row Dim r As Long Dim fileName As String For r = 1 To lastRow If ws.Cells(r, "E").Value <> "" Then fileName = ws.Cells(r, "E").Value dFileName = Dir(FolderA & "\" & Left(fileName, 3) & "*.pdf") Do While dFileName <> "" dFileName = Dir() Loop fso.moveFile FolderA & "\" & fileName, FolderB & "\" & fileName　'ここでストップ End If Next End Sub

VBA Do~Loopについて

VBA勉強中です。マクロの作成は完了しているのですが、処理効率について指摘を受け、その際に助言もいただいたのですが、自身の勉強不足、理解不足でどのように変更すれば良いのか分からず、教えていただきたいです。 Do While Ax2 <= 30　で30回繰り返すのではなく (Cells(Ax2,"B").Value <> "" )　の間繰り返すように変更したいです。 ---------------- Sub test() 　Dim File1(30) As string 　Dim Sheet1(30) As string 　Dim Sheet2(30) As string 　Dim Cnt As Integer 　Ax1=1 　Ax2=7 　Do While Ax2 <= 30 　　 If Cells(Ax2, "B").Value <> "" Then 　　　 File1(Ax1) = Cells(Ax2, "B").Value 　　　 Sheet1(Ax1) = Cells(Ax2, "C").Value 　　　 Sheet2(Ax1) = Cells(Ax2, "D").Value 　　　 Cnt =Ax1 　　 End If 　　 Ax1 = Ax1 + 1 　　 Ax2 = Ax2 + 1 　Loop End Sub ---------------- お手数ですが、よろしくお願いいたします。

ファイル名を合成すると検索できないのでしょうか？

下記のような式がありまして、一度作成したファイルは上書きされないはずですが何回やっても上書きされてしまいます。これはファイルを検索していないのでしょうか？既にファイルがあったら終了するはずですが何か間違えていますか？ 'ファイル作成 Sub MakeCopyFile(newfile As String, orgfile As String) If SearchFile(newfile) Then Exit Sub End If Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile orgfile, newfile End Sub ' ファイル検索 Function SearchFile(fname As String) As Boolean SearchFile = False Set fs = Application.FileSearch With fs .Filename = fname If .Execute() > 0 Then SearchFile = True End If End With End Function Sub Macro1() Dim name As String '名前 Dim fname As String 'ファイル名 Dim directory As String '作成先ディレクトリ Dim fullpath As String 'フルパス Dim orgfile As String '雛形のファイル名 Dim editbook As Workbook '個人データブック Dim id As String '番号 directory = "H:\test\" orgfile = "H:\test\雛形.xls" For i = 1 To 100 name = ThisWorkbook.Worksheets("Sheet2").Cells(i, 10).Value id = ThisWorkbook.Worksheets("Sheet2").Cells(i, 12).Value If name = "" Then Exit For End If 'コピーしたファイルを作成する fname = name + id + ".xls" 'ファイル名合成 fullpath = directory + fname 'フルパス合成 Call MakeCopyFile(fullpath, orgfile) 'ファイル作成 Workbooks.Open Filename:=fullpath Set editbook = Workbooks(fname) editbook.Worksheets("Sheet3").Cells(8, 14).Value = name editbook.Worksheets("Sheet3").Cells(8, 10).Value = id '※(その他必要な処理があれば追加してください) editbook.Close (True) Next i End Sub

ダイアログボックスからフォルダ名を取得し、フォルダ内のCSVファイルを

ダイアログボックスからフォルダ名を取得し、フォルダ内のCSVファイルをすべてアクセスのテーブルにインポート使用と思っています。ところがCSVファイルの数の分だけ、１つめのCSVファイルの中身が繰り返しインポートされてしまっています。どの部分に誤りがあるのでしょうか？お知恵を拝借できますでしょうか・・・。コードは以下になります。 Private Sub cmd06_Click() Dim MyFile As String Dim MyName As String Dim MyName02 As String Dim strFolderName As String strFolderName = GetFolderName() 'フォルダ選択ダイアログを表示 If Len(strFolderName) > 0 Then '選択結果を評価 MyFile = strFolderName & "\*.csv" '【拡張子csvのファイルのみ取得】 MyName = Dir(MyFile, vbNormal) MyName02 = "\" & MyName Do While MyName <> "" If MyName <> "." And MyName <> ".." Then If GetAttr(strFolderName & "\" & MyName) <> vbDirectory Then DoCmd.TransferText acImportFixed, "T03_インポート定義", "T03_全CSVデータ", strFolderName & MyName02, False, "" '【取得したファイルをインポート】 End If End If MyName = Dir Loop Else MsgBox "フォルダは選択されませんでした" End If MsgBox "データのインポートが終了しました" End Sub

フォルダのパスの参照をexcelセル上で指定する

エクセル上に参照先のフォルダパスを入力し、 VBA上では、セルを参照させたいのですが、「定数式が必要です」とエラーメッセージが出るのですが、どこをどうしたらいいですか？ --------------------------------------------- Sub 拡張子変更() Dim Folderpath As String　←これだとエラーになる Folderpath = ThisWorkbook.Worksheets("Sheet1").Range("B5").Value Const SAVE_DIR As String = Folderpath '------------ 'Const SAVE_DIR As String = "C:\Desktop\●sample\"　←これだとうまくいく '------------ Const OLD_EXTENSION As String = ".chl" Const NEW_EXTENSION As String = ".txt" Dim OldFName As String Dim NewFName As String OldFName = Dir(SAVE_DIR & "*" & OLD_EXTENSION) Do While Len(OldFName) <> 0 OldFName = SAVE_DIR & OldFName NewFName = _ Left(OldFName, Len(OldFName) - Len(OLD_EXTENSION)) & NEW_EXTENSION FileCopy OldFName, NewFName Kill OldFName OldFName = Dir() Loop End Sub

画像ファイル名をパス付きで表示

みんなの回答

関連するQ&A

画像ファイル名抽出マクロが機能しない

一致したファイル名を先頭に抽出させる方法

複数フォルダに格納されたファイル名取得VBA

マクロ　IF条件分岐　疑問

ExcelVBAでフォルダーからファルイ名を書き出しリンクを貼り、表示名を変える

VBAでExcelのセルの一覧からファイル名の変更が

【VBA】　ファイル名の取得

Excel 2010 VBA:ファイル名を読み込む

.xlsファイルが存在するパスを表示させたい

ファイルを探すプログラムで　c:\のみ動かない

実行時エラー　5　ファイル名の書き出し

VBA　一つのフォルダの中のフォルダ名とファイル名

excelのファイルとセル値を書き出したい

ExelVBA　Dirでのファイル名検索について

フォルダのファイル数をｖｂａで取得したい

vba　ファイルの移動について

VBA Do~Loopについて

ファイル名を合成すると検索できないのでしょうか？

ダイアログボックスからフォルダ名を取得し、フォルダ内のCSVファイルを

フォルダのパスの参照をexcelセル上で指定する

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

画像ファイル名をパス付きで表示

みんなの回答

関連するQ&A

画像ファイル名抽出マクロが機能しない

一致したファイル名を先頭に抽出させる方法

複数フォルダに格納されたファイル名取得VBA

マクロ IF条件分岐 疑問

ExcelVBAでフォルダーからファルイ名を書き出しリンクを貼り、表示名を変える

VBAでExcelのセルの一覧からファイル名の変更が

【VBA】 ファイル名の取得

Excel 2010 VBA:ファイル名を読み込む

.xlsファイルが存在するパスを表示させたい

ファイルを探すプログラムで c:\のみ動かない

実行時エラー 5 ファイル名の書き出し

VBA 一つのフォルダの中のフォルダ名とファイル名

excelのファイルとセル値を書き出したい

ExelVBA Dirでのファイル名検索について

フォルダのファイル数をｖｂａで取得したい

vba ファイルの移動について

VBA Do~Loopについて

ファイル名を合成すると検索できないのでしょうか？

ダイアログボックスからフォルダ名を取得し、フォルダ内のCSVファイルを

フォルダのパスの参照をexcelセル上で指定する

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

マクロ　IF条件分岐　疑問

【VBA】　ファイル名の取得

ファイルを探すプログラムで　c:\のみ動かない

実行時エラー　5　ファイル名の書き出し

VBA　一つのフォルダの中のフォルダ名とファイル名

ExelVBA　Dirでのファイル名検索について

vba　ファイルの移動について