[[20190618151549]] 『ファイルへの書き込みができません』(まいん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『ファイルへの書き込みができません』(まいん)

エクセル初心者です。

エクセルでA1からA2に書き込まれているデーターを"UTF-8"でファイルに書き出すマクロを組んでいるのですが、何故か←部分で"ファイルへの書き込みができません"というエラーになってしまいます。どなたかアドバイスをいただけないでしょうか?宜しくお願いいたします。

Sub ボタン3_Click()

    Dim stream As Object
    Set stream = CreateObject("ADODB.Stream")

    stream.Type = 2
    stream.Charset = "UTF-8"
    stream.LineSeparator = -1
    stream.Open

    Dim i As Integer
    For i = 1 To 10
        stream.WriteText ThisWorkbook.Worksheets("Sheet1").Cells(i, 1).Value, 1
    Next i

    stream.SaveToFile "C:\sample.txt", 2  ←ここでエラーになる。
    stream.Close
    Set stream = Nothing

End Sub

< 使用 Excel:Office365、使用 OS:Windows10 >


 >C:\sample.txt
 Windows10だと通常ユーザーにはCドライブ直下へのファイルの書き込み権がないが
 書き込み権を設定してあるのだろうか?
 ないままであればCドライブ直下ではなくフォルダ内に保存するようにしてはどうか?
(ねむねむ) 2019/06/18(火) 15:38

c:\ にファイル出力する、というのが重要なのであれば、以下の手順で可能になります。
(まぁ、普通は C:\ に書こうとしないと思いますけど)

(1)マクロ入りブックのファイルを右クリックし、「ショートカットの作成」を実行します。

(2)できたショートカットを右クリックし、「プロパティ」−「ショートカット」−「リンク先」を編集し、ブック名の前にExcelのプルパスを追記します。

(3)「ショートカット」−「詳細設定」が押せるようになるので、「管理者として実行」にチェックを入れれます。

(4)ショートカットをダブルクリックして実行します。
(???) 2019/06/18(火) 17:09


アドバイスいただきありがとうございました。
Cドライブ以外に設定したところうまくいきました。

初心者だとこんな簡単なことが分からなくて。。。。。
頑張ってもっと勉強したいと思います。

同もありがとうございました。
(まいん) 2019/06/19(水) 12:18


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.