A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
エクセルのマクロで、テキストファイルのインポートダイアログとは、どういうエクセルの操作で出てくるものですか。
データー外部データの取り込みーデータの取り込みの操作のことか。
そこには「テキストファイルのインポートダイアログ」というのは無いようだが。
何のことを言って居るかわかりにくくて、回答が付いてないのではないか。
ーーー
実質同じものでよければ
Sub test01()
fname = Application.GetOpenFilename("txt形式,*.txt")
MsgBox fname
i = 1
Open fname For Input As #1
While Not EOF(1)
Line Input #1, a
x = Split(a, " ")
For j = 1 To UBound(x)
Cells(i, j) = x(j)
Next j
i = i + 1
Wend
Close #1
End Sub
のようなものでエクセルに読み込める。
テキストといってもCSVファイルの場合は、エクセルとの親和性から、インポートと大げさに言うほどのもので無い。
ーー
テキストファイルの場合はデリィミタが空白と限ったものではないと思うので、それが影響するので、はっきり書かないと判りにくい。
ーーー
また
http://support.microsoft.com/kb/880684/ja
の操作をマクロの記録をッ採り一部を修正すると
(下記では指定するファイルを開いて実行しないこと、エラーになるようだ。テスト段階で注意)
Sub Macro3()
fname = Application.GetOpenFilename("txt形式,*.txt")
fname = """" & fname & """"
Workbooks.OpenText Filename:=fname _
, Origin:=932, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
End Sub
ただし FieldInfoのところをフィールド数で変えないといけないので(もちろんデリミタも実情で変える必要がある)
Sub test03()
fname = Application.GetOpenFilename("txt形式,*.txt")
fname = """" & fname & """"
Workbooks.OpenText Filename:=fname _
, Origin:=932, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
Space:=True, Other:=False, _
TrailingMinusNumbers:=True
End Sub
としてしまうか。
ーー
初心者がする質問にしては難しいな。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/07/14 12:49
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/15 16:33
- Excel(エクセル) CSVファイルがカンマ区切りにならない。対処法を教えていただきたいです。 仕事でSMS一斉送信ができ 2 2022/07/01 21:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Excel(エクセル) プログラムコードをシートに張り付けると入力BOXが出てきて困ります。 2 2022/09/10 03:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) エクセル マクロ テキストファイルを取り込む 複数の区切り文字で別々のセルに格納するには? 3 2022/08/10 21:10
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のテキストファイルをexcel...
-
バッチファイルが作成できない
-
一気にずばっと複数のメールを...
-
Excelでdatファイルを作成??
-
CADでグラフ作成
-
ファイル名の特定文字だけ削除...
-
マクロでメモ帳に貼り付け
-
ヘルプファイルの翻訳
-
インデザインのテキスト流し込み
-
batファイル処理でのテキストフ...
-
複数のファイルを同時検索し、...
-
chmのヘルプファイルをテキ...
-
windowsへscp
-
バッチによるショートカットの...
-
Refreshで落ちる
-
Microsoft Access エラー 3051
-
レーザープリンターのA4・5...
-
Lubuntuでフォントをインストー...
-
LANDISKに新しいフォルダを追加...
-
VBAでファイルパスが長すぎてコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
batファイル処理でのテキストフ...
-
バッチファイルが作成できない
-
テキストファイルの文字色に色...
-
KADOKAWA電撃文庫ってフォーマ...
-
複数のファイルを同時検索し、...
-
ファイル名の特定文字だけ削除...
-
windowsへscp
-
一気にずばっと複数のメールを...
-
powershell で出力したテキスト...
-
テキストファイルを開かずに中...
-
VBSでテキストファイルのタブ区...
-
マクロでメモ帳に貼り付け
-
テキストファイルを、ファイル...
-
CADでグラフ作成
-
ExcelVBA テキストファイルから...
-
htmlとして保存されているファ...
-
Windowsのメモ帳に何かを書いた...
-
アクセスログのテキストファイ...
おすすめ情報