コモンダイアログによって取得されたパス名を、
別のフォームでそのまま使うことはできるのでしょうか。
既存のエクセルファイルをコモンダイアログで選択し、
また別のフォームから表示させたいのですが上手くいきません。

標準モジュールを追加し、グローバル変数として宣言してみましたが
やはり「パス名が無効です」というエラーになってしまいます。

フォーム�@strFileName = CommonDialog1.FileName
ここのコモンダイアログの段階ではパスは読み込めています。

フォーム�AxlFileName = strFileName
　　　　　Open xlFileName For Input As #1
この２行目でエラーが出てしまいます。

わかる方教えてください。お願いします。

> フォーム(1) strFileName = CommonDialog1.FileName

Debug.Print strFileName

> ここのコモンダイアログの段階ではパスは読み込めています。
>
> フォーム(2) xlFileName = strFileName
Debug.Print strFileName,xlFileName

> 　　　　　Open xlFileName For Input As #1

上記のように strFileName を取得後にその中身がどうなっているのか確認するか。
まず、その結果を報告して下さい。
Debug.Print strFileName,xlFileName の結果が何も表示されないなら、標準モジュールで
宣言した strFileName のコードを投稿して下さい。

F8 キーを押して起動し、プログラムを追いながら変数がどう変化するか確認する
又は、ブレークポイント設定して、xlFileName の上にマウスをポイントして変数の
中身を見る

ディレクトリーの区切りの \ が抜けていないか等に注意しながら確認して下さい。

#インターネット上では丸付き数字は文字化け等の原因になりますので使用しないように
しましょう。

> >フォーム(1) strFileName = CommonDialog1.FileName
> Debug.Print strFileName

> フォーム(2) xlFileName = strFileName
> Debug.Print strFileName,xlFileName
> Open xlFileName For Input As #1

上記のとおり書き加えて実行してみましたがエラーも変わらず
Debug.Print strFileName,xlFileName の結果が何も表示されませんでした。
標準モジュールでの宣言は
Public strFileName As Stringのみです。

ブレークポイント設定して、xlFileName の上にマウスをポイントして中身を見たところ
全て　xlFileName="" でした。（フォーム（１））
ちなみにフォーム（２）のstrFileName = CommonDialog1.FileName
の部分でも　strFileName =""でした。
CommonDialog1.FileNameの部分にはパス名が入っていました。

> ちなみにフォーム（２）のstrFileName = CommonDialog1.FileName
> の部分でも　strFileName =""でした。

> CommonDialog1.FileNameの部分にはパス名が入っていました。
それが本当なら
strFileName = CommonDialog1.FileName
Debug.Print strFileName

ここで表示されるはずですが？

事象を再現できる最低限のコードを作って投稿して見て下さい。
標準モジュールの変数宣言の部分とForm2 のファイル名の取得部分と
Form1でのそのファイル名の表示部分のコードだけのプログラムを
作成して見て同じ状態ならそのコードを投稿して下さい。

> ちなみにフォーム（２）のstrFileName = CommonDialog1.FileName
> の部分でも　strFileName =""でした。

最初の質問では、フォーム（１）のコモンダイアログで得たファイル名を変数strFileNameに
入れて、それをフォーム（２）で使うという事だったんでは？
フォーム（２）でもコモンダイアログをつかうんですか？

ひょっとして、標準モジュールだけではなく、フォーム（２）の方でも
変数strFileNameを宣言していませんか？

標準モジュールの変数を使うなら
Module1.strFileName = CommonDialog1.FileName
xlFileName = Module1.strFileName
としてみるとか。

花ちゃんさん、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