下のコードの9行目のOPEN " "の中(ファイルのパス名が入る)を、ダイアログボックスから選べるようにするにはどうすればよいのでしょうか。至急、回答をお願いします。
Private Sub Command1_Click()
Dim FileNo As Integer 'ファイル番号
Dim strDAT As String '行データ
Dim strELM As String 'マルチステートメントの分解
Dim pot1 As Integer, pot2 As Integer '『:』、『OPEN』の位置
Dim pDB1 As Integer, pDB2 As Integer '『"』の位置(前と後)
FileNo = FreeFile
Open " " For Input As #FileNo 'ファイルをセットする
While Not EOF(FileNo)
Line Input #FileNo, strDAT '行データを読み込む
strDAT = strDAT & ":"
pot1 = InStr(strDAT, ":") 'マルチステートメント対応
While pot1 > 0
strELM = Left(strDAT, pot1) 'マルチステートメントの分解
pot2 = InStr(strELM, "OPEN") 'OPENの位置
While pot2 > 0
pDB1 = InStr(strELM, Chr(&H22)) '『"』の位置
If pDB1 > 0 Then '前の『"』の位置
pDB2 = InStr(pDB1 + 1, strELM, Chr(&H22))
If pDB2 > 0 Then '後ろの『"』があったら
RichTextBox1.Text = RichTextBox1.Text & _
Mid(strELM, pDB1 + 1, pDB2 - pDB1 - 1) & vbCrLf
End If
End If
pot2 = InStr(pDB2 + 1, strELM, "OPEN") 'OPENはもうないか
Wend
'次の命令文
strDAT = Mid(strDAT, pot1 + 1)
pot1 = InStr(strDAT, ":")
Wend
Wend
End Sub
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
パスでいいんですよね?ファイル名じゃなくて。
こちらをどうぞ
http://www.okweb.ne.jp/kotaeru.php3?q=305679
参考URL:http://www.okweb.ne.jp/kotaeru.php3?q=305679
No.3
- 回答日時:
参考までに載せます。
Form_DblClick()
Form1.CommonDialog1.InitDir = "c:\My Documents"
Form1.CommonDialog1.Filter = ".xls"
Form1.CommonDialog1.ShowOpen
fn = Form1.CommonDialog1.FileName
MsgBox fn
End Sub
このfnをOpenのところで使うのはどうですか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel】[Expression.Error] ...
-
共有フォルダに誰が何にアクセ...
-
Batch: フォルダ内の特定のファ...
-
tmpファイル なぜできる?削除...
-
Access VBA を利用して、フォル...
-
一時ファイルが消えない。
-
access関数を説明できる方いま...
-
Androidのマルチユーザーでモン...
-
excelを共有ファイルにすると行...
-
社内Excel共有ブックでの保存ト...
-
特定のエクセルファイルを起動...
-
(Excelマクロ)datファイルをエ...
-
Accessセキュリティ設定でのバ...
-
スクリーンセーバーの「テクス...
-
HTMLとデータベースの連携
-
テキストファイルからデータを...
-
事務の派遣で働いています。多...
-
AccessVBAで作成したExcelファ...
-
Excel VBA 処理後データが重た...
-
エクセルのファイルを,VB....
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
共有フォルダに誰が何にアクセ...
-
【Excel】[Expression.Error] ...
-
特定のエクセルファイルを起動...
-
Batch: フォルダ内の特定のファ...
-
VBAでCSVファイルが使用中かど...
-
月が変わったら自動でシートが...
-
tmpファイル なぜできる?削除...
-
AccessVBAで作成したExcelファ...
-
Access VBA を利用して、フォル...
-
(Excelマクロ)datファイルをエ...
-
事務の派遣で働いています。多...
-
Excel VBA 処理後データが重た...
-
excelを共有ファイルにすると行...
-
【アクセス】「ほかのユーザー...
-
XMLデータを変換し印刷する方法
-
CSVの項目行を削除して一つのフ...
-
mdbファイル フォームを開くと...
-
社内Excel共有ブックでの保存ト...
-
ファイルの途中に文字列を挿入
-
拡張子が「cda」のファイルを聞...
おすすめ情報