| |
▼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
|
|
