2004-10-27から1日間の記事一覧
ファイル選択ダイアログ Private Sub ctlBtn_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "ファイル選択" .AllowMultiSelect = False .Filters.Clear .Filters.Add "エクセルファイル", "*.xl…
ファイル選択ダイアログ Private Sub ctlBtn_Click() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Title = "ファイル選択" .AllowMultiSelect = False .Filters.Clear .Filters.Add "エクセルファイル", "*.xl…