Excel VBA質問箱 IV

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

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


71290 / 76738 ←次へ | 前へ→

【9943】Re:テキストファイルの作成と読み込み
回答  BOTTA  - 03/12/24(水) 14:16 -

引用なし
パスワード
   かなさん、こんにちは。
VBAは久しぶり & Office2003は初めて。
ということで練習もかねて作成しました。

FileSystemObjectを使って、
Sub aaa01()
Dim WSHshell As Object, DTpath As String
Dim FSO As Object, objText As Object, Fname As String
Dim MyDATA As String

  MyDATA = "123"

  '↓デスクトップパスを取得
  Set WSHshell = CreateObject("WScript.Shell")
  DTpath = WSHshell.specialfolders("Desktop")
  Fname = DTpath & "\test.txt"

  Set FSO = CreateObject("Scripting.FileSystemObject")
  '↓書き込み専用でOpen、無ければファイルを作成
  Set objText = FSO.OpenTextFile(Fname, 2, True)
  '↓MyDATAの内容を書き出し
  objText.Write MyDATA
  objText.Close

  Set objText = Nothing
  Set FSO = Nothing
  Set WSHshell = Nothing
End Sub
Sub aaa02()
Dim WSHshell As Object, DTpath As String
Dim FSO As Object, objText As Object, Fname As String
Dim MyDATA As String

  Set WSHshell = CreateObject("WScript.Shell")
  DTpath = WSHshell.specialfolders("Desktop")
  Fname = DTpath & "\test.txt"

  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set objText = FSO.OpenTextFile(Fname, 1)
  MyDATA = objText.ReadAll
  objText.Close

  ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = MyDATA

  Set objText = Nothing
  Set FSO = Nothing
  Set WSHshell = Nothing
End Sub

0 hits

【9938】テキストファイルの作成と読み込み かな 03/12/24(水) 13:14 質問
【9940】Re:テキストファイルの作成と読み込み INA 03/12/24(水) 14:05 回答
【9943】Re:テキストファイルの作成と読み込み BOTTA 03/12/24(水) 14:16 回答
【9945】Re:テキストファイルの作成と読み込み かな 03/12/24(水) 15:06 お礼

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