- ベストアンサー
VBAでファイル名の取得方法
ham_kamoの回答
- ham_kamo
- ベストアンサー率55% (659/1197)
For lngCount = 1 To .SelectedItems.Count Debug.Print(Dir(.SelectedItems(lngCount))) Next lngCount とすればいかがでしょうか。 フルパスが実際に存在しないファイルの場合はだめですが、FileDialogから選択したのであれば、この方法が使えると思います。
関連するQ&A
- Word VBA: 任意の html ファイルをファイルを開くダイアログから開くには？
こんにちは、 Word VBA のことで質問があります。 今任意の html ファイルを[ファイルを開く]ダイアログから開くというマクロを作りたいので下記のプログラムを書きましたがこれではあらかじめファイル名やパスが指定されたものになってしまうので目的を満たせないと気づきました。。 Documents.Open メソッドではファイル名の指定が必須だそうですし、、そうするとほかに考えられる手段はどんなものか、 変数を使えばできそうですが、具体的にはどんなプログラムを組めばよいかなど悩んでいます。 ちなみにマクロを作成する環境は word 2003 です。 ***以下、現状のプログラム内容です。*** Private Sub OpenButton_Click() '任意の html ファイルを開き、[File Path] テキストフィールドへファイルのフルパスを表示します Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog( _ FileDialogType:=msoFileDialogOpen) With dlgOpen .AllowMultiSelect = False If .Show = -1 Then MainWindow.TextBox1 = .SelectedItems(1) Documents.Open FileName:="C:\test.html", Format:=wdOpenFormatEncodedText End If End With End Sub ************************************************************ 目的を満たすためにはどのようなプログラムをかけばよろしいのか どなたかご指導いただけませんでしょうか よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- Excel VBA SelectedItems
Excel2003のVBAで With .FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = True '複数選べる If .Show =true Then for each eachFiles in .SelectedItems(1)'←ここ (いろいろ処理) next eachFiles End If End With という処理はよく使うと思います。ここで、 Dim tmp As variant と宣言しておいて tmp=.SelectedItems と格納しようとすると、引数は省略できないとエラーになるのですが、考え方のどこが間違っているのでしょうか？ .SelectedItemsって配列だから、このやり方で格納できると考えたのですが、何がダメなのでしょうか？ 原因が分かったとして、格納だけは兎に角したいのですが、どうすればいいでしょうか。 格納して、with文に縛られた状態から早く脱したいです。
- ベストアンサー
- オフィス系ソフト
- 複数のCSVファイルを読み込んで複数シートを1ブックとしたい
始めまして。 VBA初心者です。 2枚のCSVファイルをダイアログで各々指定し、保存する2枚のシートを1ブックにまとめたいのですが、うまくいきません。 現状は以下のようなマクロですが、別々のシートとなります。 よろしくお願い致します。 Sub 選択されたPDPファイルを開いて読み込む() With Application.FileDialog(msoFileDialogOpen) .Title = "ファイルを選択して［OK］ボタンをクリックしてください" .AllowMultiSelect = False '複数選択不可 .Filters.Clear .Filters.Add "1枚目", "*.csv", 1 If .Show = -1 Then .Execute 'キャンセルでなければ開く End With With Application.FileDialog(msoFileDialogOpen) .Title = "2つめのファイルを選択して［OK］ボタンをクリックしてください" .AllowMultiSelect = False '複数選択不可 .Filters.Clear .Filters.Add "2枚目", "*.csv", 1 If .Show = -1 Then .Execute 'キャンセルでなければ開く End With End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルVBA：取得したファイル情報を別シートに貼るには・・・
いつもお世話になっています。 今エクセルVBAで指定したフォルダ内のファイル情報を取得し、sheet2に貼り付けるものを作っています。 指定したフォルダ内のファイル情報を取得するまでは分かったのですが、作ったVBAを実行するとsheet1のA2セルから自動的に貼り付けられてしまいます。 sheet2のA1セルから貼り付けるにはどうすれば良いのでしょうか？？ 作ったVBAはこんな感じです。 まず、フォルダのパスを取得しA2セルへ表示します。 Sub test2() With Application.FileDialog(msoFileDialogFolderPicker) If .Show = 0 Then Exit Sub Range("A2").Value = .SelectedItems(1) End With End Sub 次に、A2セルの値を使ってファイル名を取得しました。 Sub Test() Dim i As Long Dim pass As String pass = Range("A2").Value With Application.FileSearch .NewSearch .LookIn = pass .FileType = msoFileTypeAllFiles .SearchSubFolders = True If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Cells(i + 1, 1) = .FoundFiles(i) Cells(i + 1, 3) = FileDateTime(.FoundFiles(i)) Next i End If End With End Sub です。 長くて申し訳ありません。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ファイル名にドットを使ったファイルのインポート（ACCESSマクロ）
Accessのマクロを作成しています。 ファイルを開くダイアログから複数ファイルを選択してCSVファイルをインポートするマクロを書きました。(最後に抜粋を記載します) インポートの行はこうなっています。 DoCmd.TransferText acImportDelim, , "traffic", varFname, True ファイル名に拡張子直前以外にドットを含むファイル名だと以下のエラーとなります。 実行時エラー '3011' オブジェクト'ドットを含むファイル名'が見つかりませんでした。オブジェクトが存在していること、名前やパス名が正しいことを確認してください。 余分なドットさえ含まなければ、50ファイル、7MBのインポートも問題ありません。 わけあってファイル名は変更できません。 ファイル名にドットを含む場合のインポートの書き方を教えてください。 宜しくお願い致します。 ===以下、抜粋=== '[ファイルを開く]ダイアログボックスを作成 Set dlgOpen = Application.FileDialog(msoFileDialogOpen) '[ファイルを開く]ダイアログボックスの初期設定 dlgOpen.AllowMultiSelect = True dlgOpen.Filters.Clear dlgOpen.Filters.Add "CSV", "*.csv" dlgOpen.InitialFileName = CurrentProject.Path '[ファイルを開く]ダイアログボックスを表示 ret = dlgOpen.Show '[キャンセル]ボタンを選択したときは、プロシージャを終了 If ret = 0 Then Exit Function End If 'カレントデータベースに接続 Set db = CurrentDb 'lineテーブルからレコードを取得 Set rs = db.OpenRecordset("line", dbOpenDynaset) '単数または複数選択されたファイル分だけ処理する For Each varFname In dlgOpen.SelectedItems 'CSVファイルをインポートする DoCmd.TransferText acImportDelim, , "traffic", varFname, True
- ベストアンサー
- Visual Basic
- パワーポイント filedialog
filedialogでファイル名取得しようとしてます。 With Application.FileDialog(msoFileDialogFilePicker) .Show for i=1 to selecteditems.Count p(i) = .SelectedItems(i) next i Debug.Print p End With 質問１ Showにて選択したファイル名がselecteditemsコレクションに入る筈ですが、順番はどうなるのでしょうか？選択順？それともファイル名順？ 質問２ あわよくば、の質問です。 selecteditemsコレクションに入ったファイル名の文字列を取り出すだけのために、わざわざfor nextを使ってます。もうちょっとウマイ方法はないでしょうか。せっかくコレクションに入ったのなら、そのまま使う方法とか。この後のファイル名の用途は、図を挿入します。
- 締切済み
- オフィス系ソフト
- ACCESS エクスポート ダイアログ ファイル名取得
ACCESS2003で作成したデータをダイアログで指定したファイル名でエクスポートしたいのですが、上手くできません。 ダイアログが開きその指定したフォルダーにあるエクセルファイルを選択すれば、正常にエキスポートできるのですが、 開いたダイアログにファイル名を入力すると、それ以降動かなくなります。 基本的なことが間違っているのでしょうか？？ 詳しい方教えてください。下記にコードした内容を書きました。 よろしくお願いします。 Private Sub cmbTransExcel_Click() On Error GoTo Err_cmbTransExcel_Click Dim fileSaveName As Variant Set dlg = Application.FileDialog(msoFileDialogOpen) With dlg .Title = "チェック" .ButtonName = "エキスポート" .InitialFileName = "C:\Program Files\DATA\" .InitialView = msoFileDialogViewList .AllowMultiSelect = False .Filters.Clear .Filters.Add "xls", "*.xls" End With With dlg If .Show = -1 Then For Each vntPath In dlg.SelectedItems strPath = vntPath Next Else Set dlg = Nothing Exit Sub End If End With Set dlg = Nothing Dim strac As String Dim varxls As Variant Dim strmsg As String strac = "Q_チェック" 'Accessファイルを指定します。 varxls = strPath 'エクセルファイルを指定します。 strmsg = strac & " を、Excelファイルへ出力します。" & Chr(13) & _ "出力先は" & varxls & "、 シート名は" & strac & "です。" & _ Chr(13) & "よろしければ、OKをクリックして下さい。" If MsgBox(strmsg, vbOKCancel) = vbOK Then '最初のデータをフィールド名として使います。 DoCmd.TransferSpreadsheet acExport, _ acSpreadsheetTypeExcel9, strac, varxls, True MsgBox "ＥＸＣＥＬの出力が正常終了しました。", vbInformation, "処理終了" End If Exit_cmbTransExcel_click: Exit Sub Err_cmbTransExcel_Click: MsgBox "ＥＸＣＥＬの出力が異常終了しました。", vbCritical, "エラー！" Resume Exit_cmbTransExcel_click End Sub
- 締切済み
- オフィス系ソフト
- VB6.0で、ＡＰＩのダイアログボックスを使い複数のファイル名を取得したいのですが
以下のサイトのファイルを開くコードを引用して、なんとかダイアログボックスをマルチセレクトにするところまではできました。 以下のコードを実行すると、strFileNameにファイルが入っているフォルダのパス名だけが取得されます。複数のファイル名を取得したいのですが。 どこを直せばいいのかわからず教えていただきたいのですが。 アドバイスお願いいたします。 "http://www.red.oit-net.jp/tatsuya/vb/FileDialog.htm" 以下、追加したコードです。---------------------------- Public Const OFN_LONGNAMES = &H200000 '旧スタイルのダイアログのとき、ロングファイル名を使用可能にする Public Const OFN_EXPLORER = &H80000 'エクスプローラ型ダイアログとして表示 '構造体の設定 With OFN .Flags = OFN_PATHMUSTEXIST Or _ OFN_FILEMUSTEXIST Or _ OFN_HIDEREADONLY Or _ OFN_ALLOWMULTISELECT Or OFN_EXPLORER 'マルチセレクト追加
- ベストアンサー
- その他(ソフトウェア)
- EXCEL VBA EXCEL2000で「ファイルを開く」を表示させる
EXCELで、「ファイルを開く」を表示させようとしています。 下記命令文でEXCEL2003ではうまくいくのですが、2000だとエラーになるようです。 どちらでも使えるコマンドを教えていただけるでしょうか。 タイトル = "ファイルを開く" ファイルの場所 = "C:\Users" '場所 フィルタ1a = "CSV" '種類 フィルタ1b = "*.csv" '拡張子 With Application.FileDialog(msoFileDialogOpen) .Title = タイトル .InitialFileName = ファイルの場所 .Filters.Clear 'フィルタクリア .Filters.Add フィルタ1a, フィルタ1b 'フィルタ設定 .AllowMultiSelect = False '複数選択不可 .Show End With
- ベストアンサー
- オフィス系ソフト
- VBA フォルダ内のファイルを昇順に読み出す方法
以下のような簡単なプログラムを組みました。 ファイル名を昇順に読み出せると思っていましたが、そうならない場合があるようです。 なぜなのでしょうか？ また、どうすればファイルを昇順に読み出せるのでしょうか？ どなたか教えて頂けないでしょうか？ （抜粋） Set WS1 = Worksheets("データー（org）") '書き出すシート Set WS3 = Worksheets("集計") Dim a As String With Application.FileDialog(msoFileDialogFolderPicker) .Show PathName = .SelectedItems(1) & "\" 'ファイルの入っているフォルダを指定 End With BookName = Dir(PathName) '処理するファイル Do Until BookName = "" Workbooks.Open PathName & BookName 'ファイルを開く Set WS2 = Worksheets(1) '読み込むシート WS2.Rows("1:" & WS2.UsedRange.Rows.Count).Copy If WS1.UsedRange.Rows.Count = 1 Then WS1.Rows(WS1.UsedRange.Rows.Count).PasteSpecial Paste:=xlValues Else WS1.Rows(WS1.UsedRange.Rows.Count + 1).PasteSpecial Paste:=xlValues End If Workbooks(BookName).Close 'ファイルを閉じる BookName = Dir() 'ファイル名をクリア Loop
- 締切済み
- Visual Basic
お礼
こんな取得方法もあるのですね、参考にさせていただきます。 有難うございました。