投稿日	： 2005/01/12(Wed) 11:45
投稿者	： ともみ
ＵＲＬ	：
タイトル	： Re^4: パス名について

花ちゃんさん、LESIAさん、返信ありがとうございました。
おかげさまでパス名のエラーはでなくなりました。
どうやらご指摘のとおり宣言をしすぎていたようです。
新たに最低限のプロジェクトを作ったらうまくいきました。
念のため載せさせていただきます。

フォーム（１）
Private Sub Command1_Click()
With CommonDialog1
.DialogTitle = "元名簿の選択"
.Filter = "Excel ファイル (*.xls)|*.xls|All File (*.*)|*.*"
.InitDir = "\\File2\Homes2\ua01110\meibo"
.CancelError = True
.ShowOpen
strFileName = CommonDialog1.FileName
Debug.Print strFileName
End With
Form2.Show
End Sub

フォーム（２）
Dim xlFileName As String
Private Sub Command1_Click()
xlFileName = strFileName
Debug.Print strFileName, xlFileName
Open xlFileName For Input As #1
Close #1
End Sub

モジュール
Public strFileName As String

★ - パス名について - ともみ 01/11-17:55No.1503
• Re: パス名について - 花ちゃん 01/11-18:18 No.1504
  • Re^2: パス名について - ともみ 01/11-18:59 No.1510
    • Re^3: パス名について - 花ちゃん 01/11-21:37 No.1512
    • Re^3: パス名について - LESIA 01/12-08:56 No.1514
      • Re^4: パス名について - ともみ 01/12-11:45 No.1517