Excel VBA質問箱 IV

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

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


70337 / 76734 ←次へ | 前へ→

【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
0 hits

【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 お礼

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