Excel VBA質問箱 IV

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

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


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

【39484】保存から呼び込み ケン 06/6/25(日) 13:36 質問[未読]
【39487】Re:保存から呼び込み Kein 06/6/25(日) 14:53 回答[未読]
【39492】質問お願いします。 マロ 06/6/25(日) 15:15 質問[未読]
【39493】Re: My Documentsのファイル名 かみちゃん 06/6/25(日) 15:23 発言[未読]
【39494】大変すみません。 マロ 06/6/25(日) 15:32 質問[未読]
【39495】Re:大変すみません。 かみちゃん 06/6/25(日) 15:40 発言[未読]
【39496】Re:大変すみません。 マロ 06/6/25(日) 15:44 質問[未読]
【39497】Re:ファイルのフルパスを知る方法(VBAでは... かみちゃん 06/6/25(日) 15:49 発言[未読]
【39498】有難うございました。 マロ 06/6/25(日) 15:56 お礼[未読]
【39499】Re:ファイルのフルパス名を簡単に取得する... かみちゃん 06/6/25(日) 15:59 発言[未読]
【39500】Re:質問お願いします。 Blue 06/6/25(日) 16:10 発言[未読]

【39484】保存から呼び込み
質問  ケン E-MAIL  - 06/6/25(日) 13:36 -

引用なし
パスワード
  
日付 氏名 商品 備考
上記をシート1で入力してそれをTXTで保存しておいて必要な時に呼び込みをしたいのですがどうしたら良いですか?

【39487】Re:保存から呼び込み
回答  Kein  - 06/6/25(日) 14:53 -

引用なし
パスワード
   どちらもアクティブシートに対しての処理です。作成・読み込みをするファイルを
仮に C:\temp\Data.txt とします。

[テキストファイルへ書き出し]

Sub Data_Exp()
  Dim C As Range
  Dim SAry As Variant
  Dim Buf As String
  Const MyF As String = "C:\temp\Data.txt"
 
  If Dir(MyF) <> "" Then Kill MyF
  Open MyF For Output Access Write As #1
  For Each C In Range("A1", Range("A65536").End(xlUp))
   With WorksheetFunction
     SAry = .Transpose(.Transpose(C.Resize(, 4).Value))
   End With
   Buf = Join(SAry, ",")
   Print #1, Buf
   Erase SAry
  Next
  Close #1
End Sub

[テキストファイルから読み込み]

Sub Data_Imp()
  Dim i As Long
  Dim SAry As Variant
  Dim Buf As String
  Const MyF As String = "C:\temp\Data.txt"
 
  If Dir(MyF) = "" Then
   MsgBox "開くテキストファイルが見つかりません", 48
   Exit Sub
  End If
  Open MyF For Input Access Read As #1
  Do Until EOF(1)
   i = i + 1
   Line Input #1, Buf
   SAry = Split(Buf, ",")
   Cells(i, 1).Resize(, 4).Value = SAry
   Erase SAry
  Loop
  Close #1
End Sub

【39492】質問お願いします。
質問  マロ E-MAIL  - 06/6/25(日) 15:15 -

引用なし
パスワード
   ▼Kein さん:
>どちらもアクティブシートに対しての処理です。作成・読み込みをするファイルを
>仮に C:\temp\Data.txt とします。
>仮の保存場所をCのマイドキュメントだとどうしたら良いのでしょうか??
教えてください。
大変すみません初心者なもんで。

【39493】Re: My Documentsのファイル名
発言  かみちゃん  - 06/6/25(日) 15:23 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

[#39482]の質問者のマロさんと[#39484]の質問者のケンさんは同じ方ですか?
質問ごとに投稿者名を変えることはなさらないほうがいいと思います。
そのほうがどのようなことに取り組んでおられるのか過去の経緯がつながって、よりよいアドバイス
が得られる可能性が高いからです。
逆に多重人格になってしまうと、もらえるアドバイスももらえなくなる恐れがあります。

これは、初心者だから云々という問題ではありませんので、ご一考いただければと思います。

さて、
>>>仮に C:\temp\Data.txt とします。
>>仮の保存場所をCのマイドキュメントだとどうしたら良いのでしょうか??
とのことですが、
Const MyF As String = "C:\temp\Data.txt"
の部分をお使いのファイル名のフルパスに書き換えればいいです。

My Documentsにあるファイルのフルパスはわかりますよね?

【39494】大変すみません。
質問  マロ E-MAIL  - 06/6/25(日) 15:32 -

引用なし
パスワード
   コピーして使わせてもらっていますので何もわかりません。
一から教えてもらえればうれしいです。
大変すみません。

【39495】Re:大変すみません。
発言  かみちゃん  - 06/6/25(日) 15:40 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>コピーして使わせてもらっていますので何もわかりません。

何もわからないなら、
Cドライブの直下にtempフォルダを作って、その中にData.txtというファイルを用意してみる
という「努力」はなさらないのですか?

コードを修正する方法のアドバイスを求めるのは、その後でも遅くないと思いますが・・・

【39496】Re:大変すみません。
質問  マロ E-MAIL  - 06/6/25(日) 15:44 -

引用なし
パスワード
   やってみました。
やっかいなことばかり言いましてすみません。
大変ご迷惑をおかけしてます。
少しでも勉強しようとおもいまして。

【39497】Re:ファイルのフルパスを知る方法(VBAで...
発言  かみちゃん  - 06/6/25(日) 15:49 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> やってみました。

で、できましたか?
やってみたなら、C:\tmp\Data.txtのフルパスを知る方法がわからないということですか?
tmpフォルダにあるファイルのフルパスを知る方法を知っているなら、
My Documentsフォルダにあるファイルのフルパスも知ることができます。

【39498】有難うございました。
お礼  マロ E-MAIL  - 06/6/25(日) 15:56 -

引用なし
パスワード
   何とかできたみたいです。
大変有難う御座いました。
今後ともよろしくお願いします。

【39499】Re:ファイルのフルパス名を簡単に取得す...
発言  かみちゃん  - 06/6/25(日) 15:59 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>何とかできたみたいです。

本当は、どのようにしてできたのか、またどのようなコードにしたのかを教えて
いただきたいところなのですが・・・
ちなみに「ファイルのフルパス名を簡単に取得する」方法としては以下のURLが参考になるかと思います。
http://arena.nikkeibp.co.jp/tec/winxp/20050822/113194/

【39500】Re:質問お願いします。
発言  Blue  - 06/6/25(日) 16:10 -

引用なし
パスワード
   ▼マロ さん:
>大変すみません初心者なもんで。
http://www.wdic.org/w/WDIC/%E5%88%9D%E5%BF%83%E8%80%85

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