- ベストアンサー
エクセルでタブをテキスト出力する
エクセルのシート内容をテキスト出力するPGを作成しようと思っています。 テキストの先頭行に"TAB"を追加してから出力するにはどうすればよいのでしょうか。 "TAB"なしなら出力できますが、"TAB"を付ける方法がわかりません。 下記の『シート内容』の前にカーソルのTABキーを押してもだめ。"\t"を追加してもだめでした。 何か方法はありませんでしょうか。 ご存知の方がいれば教えてください。 よろしくお願いします。 Open name For Output As #1 Print #1, シート内容 Close #1
- tyurajima
- お礼率97% (94/96)
- オフィス系ソフト
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。maruru01です。 VBAですか？ それなら、タブコードを繋げばいいと思います。 Print #1, Chr(9) & シート内容 または、 Print #1, vbTab & シート内容
関連するQ&A
- Rubyでテキスト内容を別のテキストに一度に出力したいのですが、どのよ
Rubyでテキスト内容を別のテキストに一度に出力したいのですが、どのようにすればよいのでしょうか。 rubyはさっきはじめたところです。 一通り検索しましたが、やり方がヒットしませんでした。 a.txtの内容: aaaaa bbbbb ccccc ... を、ファイルコピーではなくoutput.txtに出力したいのですが、 a = open("a.txt") o = open("output.txt",w) ??? a.close o.close で、???の部分にどのような処理を書けばよいのでしょうか。 putsやwriteで書いてみたのですが、(o.write a) #<File:0x28a4450> と出力され、（ファイルオブジェクトのアドレス？）、a.txtの内容が出力出来ませんでした。 a.xxx のようにするのかな、と予想しますが、方法は問いませんので、ご教示いただけないでしょうか。
- ベストアンサー
- Ruby
- エクセルのデータをTAB区切りテキストに出力
エクセルのデータをTAB区切りテキストに出力 １．エクセルのデータをTAB区切りテキストに出力して ２．そのテキストを入力としてrubyでデータ加工 という作業があります。現在１を手動で行っておりますが、ファイルが多いためこの操作をファイル名とシート名を指定してrubyから操作できればと考えております。 できれば追加でライブラリをインストールすることなく実現できればありがたいのですが、簡単な方法がございましたらご教示ください。 環境は、Win XP、Office 2003、ruby 1.9.1です。 最終的にはエクセルファイルから直接データを取得できるようにしたいのですが、当面は上記の方法で凌ぎたいと考えております。
- ベストアンサー
- Ruby
- エクセル VBA テキストファイル書き出す応用？
以下のページより、 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_040.html Option Explicit ' テキストファイル書き出すサンプル(2) Sub WRITE_TextFile2() Const cnsFILENAME = "\SAMPLE.txt" Dim intFF As Integer ' FreeFile値 Dim strREC As String ' 書き出すレコード内容 Dim GYO As Long ' 収容するセルの行 Dim GYOMAX As Long ' データが収容された最終行 ' 最終行の取得 GYOMAX = Range("A65536").End(xlUp).Row ' FreeFile値の取得(以降この値で入出力する) intFF = FreeFile ' 指定ファイルをOPEN(出力モード) Open ThisWorkbook.Path & cnsFILENAME For Output As #intFF ' 2行目から開始 GYO = 2 ' 最終行まで繰り返す Do Until GYO > GYOMAX ' A列内容をレコードにセット(先頭は2行目) strREC = Cells(GYO, 1).Value ' レコードを出力 Print #intFF, strREC ' 行を加算 GYO = GYO + 1 Loop ' 指定ファイルをCLOSE Close #intFF End Sub ------------------------------------------------------------- これを参考にしてテキストファイル書き出すのは出来たのですが、 今回は、ちょっと応用で以下のようにしたいです。 Sheet1のA2～A20までテキストファイル名が書いてあるとします。 また、Sheet2～Sheet20ぐらいまで、各Sheetに文章が入っているとします。 テキストファイルに書きだしたいのですが、 Sheet2の内容は、Sheet1のA2のファイル名 Sheet3の内容は、Sheet1のA3のファイル名 Sheet4の内容は、Sheet1のA4のファイル名 このようにしたいのですが、どのようにすればいいのか教えてください。 よろしくお願います。
- ベストアンサー
- オフィス系ソフト
- EXCELVBAでデータをテキストファイルで出力したいと
EXCELVBAでデータをテキストファイルで出力したいと考えています。 ***************************** 作成したVBA ***************************** Sub test_Click() Dim fNAME As String fNAME = "c:\test.txt" Open fNAME For Output As #1 i = 1 Print #1, "<test=" & Cells(1, i) & "," & Cells(2, i) & "," & Cells(3, i) & "," & Cells(4, i) & "," & Cells(5, i) & ">" Close #1 '閉じる End Sub ***************************** エクセルの値 ***************************** Ａ列 １ ２ ３ ４ ５ ***************************** 出力されたテキストファイル ***************************** <test=１,２,３,４,５> このようになっていますが、 エクセルが Ａ列 １ ２ のように、２個しかないと、 <test=１,２,,,> のようになってしまいます。 <test=１,２> ↑のようになるように、エクセルの値に応じて、 「,」が出力しないようにしたいです。 どうしたらよいのでしょうか。 よろしくおねがいします。
- 締切済み
- その他（プログラミング・開発）
- ＧＢ２３１２、ＢＩＧ５でのテキスト出力
ちょっと興味を持った内容なのですが…。 簡体字・繁体字テキストを開く場合は、（ツールにもよりますが）文字コードとして 掲題のものを指定して開けば問題無いかと思います。 またプログラミングでこれらのテキストを読み込む場合も、単に向こうのコードということを 念頭に置いて処理すれば同様に問題無いかと思います。 しかし、ＢＩＧ５などをプログラムからテキスト出力させることは可能なのでしょうか？ ＵＮＩＣＯＤＥ系ならファイルの先頭に特定のコードを付与すれば良いようですが、 例えば「ＵＴＦ８で書かれたテキストをＧＢ２３１２にして出力」するには どのように設定すれば良いのでしょう？
- 締切済み
- その他（プログラミング・開発）
- TABキーで、カーソル移動したテキストの値を選択状態にしたい
現在VBでプログラムを作っております。 TABキーにて、カーソルがテキストボックスに位置付く際、入力されている 値を選択状態にしたいのですけど、これって可能ですか？ 現状、TABキーを押せば、テキストボックスにカーソルが移動しますが、 仮に（テキストボックスに）100と値が入っていた場合、カーソルは100の値 の先頭に位置付き、値の修正が必要となった場合、Deleteキー等で値を消し てから、再度入力となります。 これがわずらわしいので、カーソル移動したら、そのまま選択状態とし、 入力すれば、値が上書きされるようにしたいです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- エクセルから外部テキストの置換をしたいです
お時間があるかた、どうぞご教授下さい＞＜ ================================ Dim FT As String Open "C:\1.txt" For Input As #1 Open "C:\2.txt" For Output As #2 Do While Not EOF(1) Line Input #1, FT FT = Replace(FT, ">", "\n") Print #2, FT Loop Close #1 Close #2 ================================ というマクロをエクセルで書いたのですが、テキスト上では＞が\nに変換されているだけです。 テキストのほうで、ある文字(今回は＞)を『改行』するにはどうしたらいいのでしょうか？ エクセルのマクロから出来るようにしたいのです。 よろしくお願い致します。
- ベストアンサー
- その他MS Office製品
- Excel VBA 出力について
txtファイルの出力をしたいのですが 調べながらやっていたのですがよくわかりませんでした。 あまり時間が取れない為 コードの記述方法を教えてください。 vbaの処理を行ってできたstrCompSheetNmのSheetがあります。 このSheetのデータを出力したいのです。 またこのSheetの行数は非固定になります。 出力元をどこかで指定してあげないといけないのかと思うのですが 記述方法がわからず いろいろなサイトを参考にしながらやってみても 内容が空のファイルができあがったりしてました。 出来たら 出力時 同名のファイルがあった場合 上書き又はファイル名を変更できるようにしたいのです。 いろいろ書きなおした上で下記の状態でとまっております。 ご回答のほう宜しくお願い致します。 不慣れでもうしわけないです。 現状 Dim SaveFileName As Variant Dim wScriptHost As Object, strInitDir As String Set wScriptHost = CreateObject("WScript.Shell") ChDir wScriptHost.SpecialFolders("Desktop") 'Dim YeDate As String 'YeDate = Format(Date, "yyyymmdd") SaveFileName = Application.GetSaveAsFilename(Format_ (Date, "yyyymmdd"), "テキストファイル(*.txt),*.txt,_ CSVファイル(*.csv),*.csv") If SaveFileName <> False Then Dim FlNum As Integer Dim GYO As Long Dim GYOMAX As Long FlNum = FreeFile Open ThisWorkbook.Path & SaveFileName For Output As FlNum GYO = 1 Do Until GYO > GYOMAX Print #FlNum, GYO = GYO + 1 Loop Close #intFF Else MsgBox "キャンセルがクリックされました。", vbInformation End If
- 締切済み
- その他（プログラミング・開発）
- エクセル⇒テキストへ書込んで名前を付けて保存する時に、現在の日時を入れるにはどうすれば良いでしょうか？
エクセル⇒テキストへ書込んで名前を付けて保存する時に、現在の日時を入れるにはどうすれば良いでしょうか？ 下記構文の、Const cnsFILENAME = "\FILE_" & yyyy-mm-dd & ".sh" の & yyyy-mm-dd &の部分に入れたのですがいい方法をご教授下さい。 お願い致します。 Const cnsFILENAME = "\FILE_" & yyyy-mm-dd & ".sh" 'ファイル名 intFF = FreeFile ' FreeFile値の取得(以降この値で入出力する) Open ThisWorkbook.Path & cnsFILENAME For Output As #intFF Do Until GYO > GYOMAX ' 最終行まで繰り返す ' A列内容をレコードにセット(先頭は1行目) strREC = Cells(GYO, 1).Value Print #intFF, strREC ' レコードを出力 GYO = GYO + 1 ' 行を加算 Loop Close #intFF ' 指定ファイルをCLOSE
- ベストアンサー
- Visual Basic
- Excel VBA tabキーでtextを移動
Excelシート上のテキストボックスやコンボボックスに入力後、TABキーで次のボックスに移動することを考えています。 keycode＝９でTABキーを検出し textbox1.activate としてもtextbox1にカーソルが立ちません。 TABキーで移動して即入力できるようなプログラムはできないでしょうか？
- ベストアンサー
- Visual Basic
お礼
Chr(9)で出来ました！！ すっかりChrの事を忘れていました。 ありがとうございます。