
No.2ベストアンサー
- 回答日時:
もっと簡単な方法があるかもしれませんが、
VBScriptを利用してはいかがでしょう?
以下の内容をメモ帳にコピーして、拡張子を
.vbsにしてSendToフォルダーに保存します。
(名前は何でも良い。 例・・・"TEST.vbs")
Dim txtFile
Dim xlApp
Dim xlWb
If WScript.Arguments.Count=1 Then
txtFile = WScript.Arguments(0)
Set xlApp = WScript.CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open(txtFile)
with xlWb.Worksheets(1)
.Columns("A:A").TextToColumns .Range("A1"), 1, 1, True, False, False, False, True, False
end with
xlApp.Visible = True
Set xlApp = Nothing
Set xlWb = Nothing
Else
Wscript.Echo "一度に複数ファイルは処理できません。"
End If
開きたいテキストファイルを右クリックして
「送る」→「TEST.vbs」と操作します。
これでテキストファイルをスペースで区切って開けると思います。
No.4
- 回答日時:
masa_019さんと路線は同じですが、複数ファイルも処理できます。
Wendy02さんの案が簡単で良いような気がしますが、同じ拡張子でも処理方式を変えたい等、自由度が欲しい場合にどうぞ。
区切り文字の扱い方を変更したい場合は、EXCELのヘルプを参考に、objXL.Workbooks.OpenText~ の行を修正します。
何も変更しない状態では、
カンマ、タブおよびスペース有効、連続する区切り文字は1文字として扱う、文字列の引用符はダブルクォーテーション
となっています。
制限事項: Excelが未起動の状態からテキストを開いた場合に、手動で新たなファイルを開かないまま、最初に開いたファイルを閉じると、Excelが非表示になってしまうことがあります。
その場合は、何かExcelに関連付けられたファイルを開いて、Excelの表示を戻してください。
動作確認環境: WindowsXP SP2, Excel97 SR-2, Windows Script Host 5.6
*****以下ソース*****行頭全角スペースは使用前に半角スペースに置換してください
'指定した区切り文字でテキストをExcelに読み込み
'下はExcel VBA OpenTextメソッドの構文
'expression.OpenText(Filename, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo)
Const xlMacintosh = 1, xlWindows = 2, xlMSDOS = 3'Origin
Const xlDelimited = 1, xlFixedWidth = 2'DataType
Const xlTextQualifierDoubleQuote = 1, xlTextQualifierSingleQuote = 2, _
xlTextQualifierNone = -4142'TextQualifier
Dim objXL, strTxt
On Error Resume Next
Set objXL = GetObject(, "Excel.Application")'起動済Excelの取得
If TypeName(objXL) = "Empty" Then
'起動済Excelが無い時新規作成
Set objXL = CreateObject("Excel.Application")
End If
On Error goto 0
For each strTxt in WScript.Arguments'引数(テキストのパス)全てについてOpenText
objXL.Workbooks.OpenText strTxt, xlMSDOS, 1, xlDelimited, _
xlTextQualifierDoubleQuote, True, , True, True
Next
objXL.Visible = True
Set objXL = Nothing
No.3
- 回答日時:
こんにちは。
Personal.xls(個人用マクロブック)の ThisWorkbook に、以下のコードを貼り付けてください。そして、「送る(SendTo)」に送って開いてみてください。
'<Personal.xls の ThisWorkbook のみ>
'--------------------------------------------
Private Sub Workbook_Open()
On Error Resume Next
If ActiveWorkbook.Name Like "*txt" Then
With ActiveWorkbook.ActiveSheet
.Columns(1).TextToColumns ConsecutiveDelimiter:=True, Space:=True
End With
End If
End Sub
'--------------------------------------------
No.1
- 回答日時:
メモ帳で下記を作り、名前をつけて保存しました。
12 asd 2345
123 rty 45
345 ertttt 23456
スペースの所は1スペースで区切っています。多桁スペースでも良いと思います。改行はENTERで改行してます。
これをエクセルで開くと、テキストファイルウイザードが現れますが
その後の操作が面倒なのでしょうか。
であれば、マクロの記録をオンにして、その後の操作も行って記録を
終了すると下記のようになりました。
Sub Macro1()
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\xxx\My Documents\text6.txt", 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)), TrailingMinusNumbers:=True
End Sub
このうちなくても良い項目は削除し、ファイル名をInputBox
関数ででも、毎回聞いて、FileName:=にセットすればどうでしょう。
こういう質問でしょうか。
違っていたらごめんなさい。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/21 09:42
- Excel(エクセル) エクセル マクロ テキストファイルを取り込む 複数の区切り文字で別々のセルに格納するには? 3 2022/08/10 21:10
- Excel(エクセル) csvファイルをExcel形式で読み込むには 2 2023/07/03 13:09
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- PostgreSQL ポストグレにあるExcelファイルを開くには 1 2022/12/13 18:07
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Excel(エクセル) Excelファイル開けない。 3 2023/04/18 07:35
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
- Excel(エクセル) OutlookのメールでExcelが添付されて送られてきて、それをExcelのウェブ版で開きたいので 2 2022/08/10 17:48
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELのVBAでEOFを誤認識
-
【VBA】テキストファイルを指定...
-
Excelにて、フォルダ内のTextフ...
-
VBで複数のテキストを結合する...
-
同一フォルダにある複数のテキ...
-
アスキー、バイナリーの違い、...
-
VBSを使用し、指定フォルダ内の...
-
Java:ファイルの読み込みはどれ...
-
xmlファイルから文字列の読...
-
スペース区切りのテキストファ...
-
句点で改行
-
エクセルのプロパティーでセキ...
-
ファイルのアクセス回数について
-
エクセルvbaでdocuworksprinter...
-
エクセルで複数のコメントのサ...
-
カンマ区切りのCSVファイルから...
-
ExcelブックをGoogleスプレッド...
-
【ExcelVBA】UTF-8の文字コード...
-
バッチでCSVを処理する時、空の...
-
動かなくなってしまった古いVBA...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】テキストファイルを指定...
-
同一フォルダにある複数のテキ...
-
EXCELのVBAでEOFを誤認識
-
アスキー、バイナリーの違い、...
-
テキストファイルの最終行を消...
-
複数のテキストファイル内の複...
-
uwscでExcelに自動記入
-
Excelにて、フォルダ内のTextフ...
-
VBScript(vbs)での行の取得につ...
-
VBSを使用し、指定フォルダ内の...
-
VBS【特定のレコード長で件数取...
-
VBAでテキストファイルを最後ま...
-
VBでのテキストファイルへ参照...
-
VBで複数のテキストを結合する...
-
ダイアログのタイトルを変更する
-
スペース区切りのテキストファ...
-
Java バブルソート
-
unixのシェルスクリプトで特定...
-
句点で改行
-
定型書式のテキストファイルをE...
おすすめ情報