|
ありがとうございます。
下記方法でできました。
(FunctionのStringFromRangeは記述済)
単純なことでした。
しかし、いろいろな方法があるんですね。参考になりました。
また、わからないことがありましたら質問させていただきます。
よろしくお願いいたします。
-------------------------------------------------------------------
Public Sub データへ保存()
Dim strbuff, folder, filename_dat As String
folder = "..\..\cgi-bin\kakunin\data"
filename_dat = "\test.txt"
On Error GoTo select_err
Worksheets("temp").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
strbuff = StringFromRange(Selection)
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.fileExists(filename_dat) = True Then
Call fso.Copyfile(filename_dat, folder & "\test_bk.txt", True)
End If
Dim flowfile As Object
Set flowfile = fso.CreateTextFile(folder & "\test.txt", True)
flowfile.Write strbuff
flowfile.Close
MsgBox ("test.txtを" & vbCr & folder & vbCr & "に保存しました。")
Exit Sub
select_err:
MsgBox ("エラーです。ファイルに保存できません。")
Exit Sub
End Sub
|
|