Excel VBA質問箱 IV

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

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


12553 / 13644 ツリー ←次へ | 前へ→

【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 お礼

【9938】テキストファイルの作成と読み込み
質問  かな  - 03/12/24(水) 13:14 -

引用なし
パスワード
   VBA初心者です。
今、テキストファイルの扱い方を勉強していますが、煮詰まってしまいました。
とても難しいです。

1.「123」という文字が書かれたテキストファイル、test.txtをデスクトップに
 作成する。
2.test.txtファイルを読み込んで、エクセルワークシートA1に「123」の
 文字をとりこむ。

この二つのマクロを教えてもらえないでしょうか?
テキストファイルの扱い方の教材にしたいので。
よろしくお願い致します。

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

引用なし
パスワード
   デスクトップにtxt形式で保存等の操作を
マクロの自動記録で出来ませんか?

【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

【9945】Re:テキストファイルの作成と読み込み
お礼  かな  - 03/12/24(水) 15:06 -

引用なし
パスワード
   BOTTA さん、ありがとうございます。
教えて頂いたコード、一行づつ解読して勉強してみます。
本当にありがとうございました。

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