| |
▼やす さん：
こんばんは
エクセルデータをテキストファイルとして保存するコードは
マクロ記録で生成できますよね。
なので、目的の文字列を作り、セルに書き込んでおいてテキストファイルとして
保存するということになりますね。
その文字列作成の部品をヒントとして。
生成した文字列と、その桁数を表示しています。
Sub test1()
Dim s1 As String
Dim s2 As String
Dim num As Long
Dim s3 As String
Dim x As Long
Dim y As Long
Dim n As Long
x = Range("A1").Value
y = Range("B1").Value
num = Range("A2").Value
s1 = Format(num, String(x, "0"))
MsgBox s1 & vbLf & Len(s1)
s2 = Range("B2").Value
n = y - Len(s2)
If n > 0 Then
s2 = s2 & String(n, " ")
Else
s2 = Left(s2, y)
End If
MsgBox s2 & vbLf & Len(s2)
s3 = s1 & s2
MsgBox s3 & vbLf & Len(s3)
End Sub
|
|
UO3
- 12/4/5(木) 22:45 -
