こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

回答受付中の質問

『ファイルを開く』ダイアログボックス

お世話になります。
次のサンプル例文を応用してボタンをクリックしたら任意のネットワークドライブに自動アクセスして『ファイルを開く』ダイアログボックスを表示するプログラムを作りましたが、手動でエクセルのコマンドの『開く』アイコンを使って『ファイルを開く』ダイアログボックスを表示させたらそのレイアウトが変わってしまいました。どうやら同じようなプログラムなので干渉してエクセル本来のプログラムまで書き換えられてしまったようです。

何がいけなかったのでしょうか?
Sub Sample2()
 With CreateObject("WScript.Shell")
  .CurrentDirectory = "\\EPSON\E\Develop\"
 End With
  If OpenFileName <> "False" Then
   Workbooks.Open OpenFileName ダイアログボックスを表示
  Else
    Cxl = MsgBox("キャンセルされました")
  End If
End Sub

投稿日時 - 2018-07-13 11:54:11

QNo.9517819

困ってます

回答(0)

この質問にはまだ回答がついていません。
あなたが最初に回答してみませんか?

あなたにオススメの質問