Ｐａｇｅ 758 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼A1〜K20のデータをテキストファイルに出力 LC 03/2/17(月) 20:14 ┗Re:A1〜K20のデータをテキストファイルに出力 Jカーター 03/2/17(月) 22:59 ┗Re:A1〜K20のデータをテキストファイルに出力 LC 03/2/17(月) 23:17 ┗Re:A1〜K20のデータをテキストファイルに出力 Jカーター 03/2/17(月) 23:27 ┗Re:A1〜K20のデータをテキストファイルに出力 LC 03/2/17(月) 23:45 ─────────────────────────────────────── ■題名 ： A1〜K20のデータをテキストファイルに出力 ■名前 ： LC ■日付 ： 03/2/17(月) 20:14 -------------------------------------------------------------------------
| こんばんわ。 教えてください。 A1〜K20にデータが入力されていて、それをテキストファイルに書き出して、 デスクトップに保存したいんです。 この作業をマクロで自動化出来ないでしょうか？ 手作業で行うと、A1〜K20までをセレクト/コピーし、メモ帳を開いて、 そこに張りつけ、デスクトップに保存するといった具合です。 また、拡張子は、txtでもよいのですけど、 拡張子なしで保存はできないでしょうか？ 以上、よろしくおねがいします。m（_ _）m |
| こんばんは。 ご期待の結果になるかは自信ないですが。 Option Explicit '参照設定 Microsoft Forms 2.0 Object Library Sub Test() Dim obDT As DataObject, obWsc As Object Dim strT As String, strDPF As String Dim lngFF As Long Set obWsc = CreateObject("WScript.Shell") strDPF = obWsc.SpecialFolders("Desktop") & "\TestData.txt" Set obWsc = Nothing 'ここがファイル名↑ Set obDT = New DataObject Range("A1:K20").Copy With obDT .GetFromClipboard Application.CutCopyMode = False strT = Left(.GetText, Len(.GetText) - 2) .Clear End With Set obDT = Nothing lngFF = FreeFile Open strDPF For Output As #lngFF Print #lngFF, strT Close #lngFF End Sub 的はずれでしたらすいません。 |
| さっそくの回答ありがとうございます。 やってみたのですが、エラーが出てしまいました。 ユーザ定義型は定義されていませんと出ました。 私には何のことやら・・ |
| こんばんは。 説明不足ですいません。 Microsoft Forms 2.0 Object Library★ に参照設定してください。 簡単な方法は 一個ユーザーフォームをつっくてから、解放します。 自動で参照設定されます。 または VBEメニューの「ツール」「参照設定」で開かれた ダイアログのリストボックスから上記★マークを探してチェックしてOKです。 あと、コード内のファイル名の拡張子は消してもファイルはできるようです。 |
| 出来ました！ まさにこれです!!! Jカーターさん、どうもありがとう★ LC |