掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンパイルエラーで進みません (ID:143481)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> Dim FileN As String > FileN = Application.GetOpenFilename("テキストファイル,*.txt") > If FileN <> "False" Then GetOpenFilename の戻り値は String 型ではありません。 戻り値は Variant 型の変数で受け取る必要があります。 ダイアログがキャンセルされると、戻り値は「False」になります(「"False"」ではない)。 ファイルが選択された場合は、戻り値はそのファイル名へのフルパスになります。(内部処理形式 String な Variant 型) 蛇足ですが、GetOpenFilename に MultiSelect:=True が指定されてた場合には、 キャンセル時 → False (内部処理形式 Boolean な Variant型) ファイル指定時 → ファイルフルパスを示す1次元配列False (Variant型の一次元配列を格納した Variant) となります。 > With Workbooks.OpenText(FileN, DataType:=xlDelimited, Tab:=True) OpenText メソッドは戻り値を返しません。(Function ではなく Sub です) そのため、コンパイルエラーになっているのでしょう。この場合は Call Workbooks.OpenText(FileN, DataType:=xlDelimited, Tab:=True) などとしてみてください。 > .Sheets(1).UsedRange.Copy Sh.Rane("A1") ' <-- セル指定 Range プロパティですよね。スペルミスでしょうか。 Rane というメンバーは、Worksheet オブジェクトにはありません。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.