現在、指定したファイルを開くVBAを書いているのですが、
↓こんなの
-----------------------------------------------------------
Dim vntFileName As Variant
'ファイルを開くダイアログを開きます
vntFileName = _
Application.GetOpenFilename( _
FileFilter:="エクセルファイル(*.xls),*.xls" & _
",CSVファイル(*.csv),*.csv" _
, FilterIndex:=1 _
, Title:="開けゴマ" _
, MultiSelect:=False _
)
'ファイルが選択されているときは
'選択したファイルをWorkbooks.Openメソッドで開きます
If vntFileName <> False Then
Workbooks.Open Filename:=vntFileName
End If
----------------------------------------------------------------
あらかじめ開くディレクトリを、ネットワーク上のフォルダに指定したいのですが、どこにパスを書いたらいいのか、わかりません。
教えていただけますでしょうか。
No.1ベストアンサー
- 回答日時:
こんにちは。
こんな感じになると思います。
(ほかにも方法があるとは思いますが……)
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias _
"SetCurrentDirectoryA" (ByVal CurrentDir As String) As Long
Sub Test1()
Dim vntFileName As Variant
Dim myDir As String
'あらかじめはっきりしていればよいですが、場合によって、
'ここに、ネットワーク・ドライブ・チェックのコードが必要になります。
myDir = "\\public\Excel" 'ネットワークドライブ
SetCurrentDirectory myDir '変更可能
'ファイルを開くダイアログを開きます
vntFileName = _
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
0バイトのテキストファイル
-
VBAで、JPG写真の撮影日時を読...
-
RPGでメッセージファイル利用
-
VB6.0のメモリリークについて
-
vbaの構文の修正相談(xmlファ...
-
【VBA】印刷マクロのループ処理...
-
Eclipseで検索ができなくなった
-
タスクバーのアイコンについて
-
2GB以上のファイルを扱う方法
-
サイトマップにサブドメインを...
-
ファイル内容を比較する方法
-
PHPからベーシック認証のかかっ...
-
VB2008 iniファイルの全セクシ...
-
【Excel VBA】取り込んだファイ...
-
Javaのファイルダウンロードに...
-
HTMLテキストリンクでExcelファ...
-
VB6 実行ファイルにデータの保存
-
Perlで2GBを超える大きいファイ...
-
BASP21のファイルアップロード...
-
msgget()で指定するkey値について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
0バイトのテキストファイル
-
【Excel VBA】取り込んだファイ...
-
HTMLテキストリンクでExcelファ...
-
VBAで、JPG写真の撮影日時を読...
-
Eclipseで検索ができなくなった
-
vbaの構文の修正相談(xmlファ...
-
2GB以上のファイルを扱う方法
-
サイトマップにサブドメインを...
-
main関数のコマンドライン引数...
-
ファイル更新日取得
-
ファイル作成日時と更新日時を...
-
VB6.0のメモリリークについて
-
C++によるファイル送受信プログ...
-
リソースファイルを認識してく...
-
ファイルのダウンロードが遅い
-
C++.NET 2003 「空のドキュメ...
-
Javaのファイルダウンロードに...
-
HTMLまたはJavaScriptでフ...
-
【VBA】複数CSVの特定範囲を1つ...
-
C#について質問【複数の.datフ...
おすすめ情報