Excel VBA質問箱 IV

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

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


45326 / 76735 ←次へ | 前へ→

【36405】ありがとうございます
お礼  あや  - 06/3/30(木) 16:24 -

引用なし
パスワード
   ありがとうございます。
下記方法でできました。
(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

0 hits

【36405】ありがとうございます あや 06/3/30(木) 16:24 お礼
【36409】Re:ありがとうございます Kein 06/3/30(木) 16:50 回答

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