web-dev-qa-db-ja.com

VB 6でファイルを開くダイアログを使用する方法は？

ディレクトリまたは他のシステムからファイルを選択したい。 VB 6でファイルを開くダイアログを使用する方法は？

vb6
8
Gopal

この質問 にいくつかのサンプルコードがあります。引用：

VB6で、コンポーネントを追加します。

  • プロジェクト>コンポーネント
  • [コントロール]タブで、[Microsoft Common Dialog Control 6.0（SP6）]を選択します。

フォームに、ツールボックスから新しい共通ダイアログコントロールを追加します

コードでは、次のものが必要です。

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.DialogTitle = "Select File"
CommonDialog1.ShowOpen

'The FileName property gives you the variable you need to use
MsgBox CommonDialog1.FileName
20
Ant

「1」が必要でしたが、うまくいきましたありがとうございます

CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.DialogTitle = "Select File"
CommonDialog1.ShowOpen

'FileNameプロパティは、MsgBoxCommonDialog1.FileNameを使用するために必要な変数を提供します

1
Stroller
Sub main()


  With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Excel Files", "*.xlsx; *.xlsm; *.xls; *.xlsb", 1
        .Show
        fullpath = .SelectedItems.Item(1)
    End With

    If InStr(fullpath, ".xls") = 0 Then
        Exit Sub
    End If

    Workbooks.Open fullpath

End Sub
0
Ian Araya Elizondo