Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12363 / 13646 ツリー ←次へ | 前へ→

【10903】テキスト形式での保存について show 04/2/18(水) 15:12 質問
【10906】Re:テキスト形式での保存について IROC 04/2/18(水) 15:47 回答
【10907】Re:テキスト形式での保存について Jaka 04/2/18(水) 15:49 回答
【10909】Re:テキスト形式での保存について Jaka 04/2/18(水) 15:56 発言
【10913】Re:テキスト形式での保存について show 04/2/18(水) 16:33 お礼

【10903】テキスト形式での保存について
質問  show  - 04/2/18(水) 15:12 -

引用なし
パスワード
   はじめまして。
保存の際にエクセルデータの一部だけを保存したい。
もしくは、データのあるA列 C列をテキスト形式で保存し
データの入っているB列に関しては内容を無視する。
みたいな保存の方法はあるでしょうか?

欲しいデータを、別のシートに写してそれを保存って方法しかないですかねぇ?

良い方法ありましたらご教授ください。

【10906】Re:テキスト形式での保存について
回答  IROC  - 04/2/18(水) 15:47 -

引用なし
パスワード
   方法はいろいろありますが、
「新規ブックにコピペして、テキスト形式で保存する。」
であれば、マクロの自動記録で簡単に出来ると思います。

【10907】Re:テキスト形式での保存について
回答  Jaka  - 04/2/18(水) 15:49 -

引用なし
パスワード
   ▼show さん:
>はじめまして。
>保存の際にエクセルデータの一部だけを保存したい。

できないと思います。


>もしくは、データのあるA列 C列をテキスト形式で保存し

↓他で回答した奴をちょっと変えてだけですけど。(載せてみたかっただけ)

Sub bbbbbb()
  MFile = "C:\WINDOWS\デスクトップ\bat.txt"
  Open MFile For Append As #1
  Close #1
  DoEvents
  Application.ScreenUpdating = False
  Columns("B").EntireColumn.Hidden = True
  Range("A1:C19").Copy
  Shell "C:\WINDOWS\Notepad.exe " & MFile, 1
  SendKeys ("%EP")
  DoEvents
  SendKeys ("{ENTER}")
  SendKeys ("%FS")
  SendKeys ("%FX")
  'DoEvents
  SendKeys "{NUMLOCK}"
  Application.CutCopyMode = False
  DoEvents
  Columns("B").EntireColumn.Hidden = False
  Application.ScreenUpdating = True
  'AppActivate Application.Caption
End Sub

テキスト他

Sub GS400E()
  Dim File_OUT As String
  File_OUT = "C:\Windows\デスクトップ\作ったテキスト.txt"
  Open File_OUT For Output As #1
  For i = 100 To 110
    Print #1, Range("A" & i).Value & ",とかタブとか" & Range("C" & i).Value
  Next
  Close #1
End Sub

【10909】Re:テキスト形式での保存について
発言  Jaka  - 04/2/18(水) 15:56 -

引用なし
パスワード
   >  For i = 100 To 110
       範囲を直し忘れちゃったんで、適当に買えて下さい。

【10913】Re:テキスト形式での保存について
お礼  show  - 04/2/18(水) 16:33 -

引用なし
パスワード
   早い返答ありがとうございます。

一部保存<やはり無理なのですね。

載せてみたかったプログラム<
当方NT機でしたので、エラーが出てしましたが^^;
マルチに使えるようにするには、先に数行が必要になりますね。

でも、想像通りな事はこの例で何とかできそうです。
ありがとうございました。

12363 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free