お世話になります。
ExcelVBAで、ネットワーク上の隠しフォルダ(....$で開く
ことができる場所のことです)に、テキストファイルの書き
込みをしたいのですが、outputのところで『パス名が無効です』と
表示され、書き込みを行うことができません。
inputで読み込みを行う際には問題なくできるのですが、どうして
書き込みはできないのでしょうか。
原因と対処法を教えてください。
下記が、その例です。
Public Function readText(ByVal stFileName) As String
Dim ch1 As Long
Dim textline As String
Dim stAllText As String
readText = ""
'空いているファイル番号を取得します
ch1 = FreeFile
Close #ch1
'FileNamePath のファイルをオープンします
Open stFileName For Input As #ch1
'エラーが発生したらファイルを閉じます
On Error GoTo Err_readText
stAllText = ""
'最初に1行だけ読み込む
Line Input #ch1, textline
stAllText = textline
Do While Not EOF(ch1) 'ファイルの終端かどうかを確認します。
'1行読み込みます
Line Input #ch1, textline
' 文字列を連結する。
stAllText = stAllText & vbCrLf & textline
Loop
Close #ch1
readText = stAllText
Exit Function
Err_readText:
Close #ch1
MsgBox Err.Description, vbExclamation, sysName
End Function
↑↑↑readは成功します。
Public Function writeText(ByVal stFileName, ByVal stBuff) As Boolean
On Error GoTo ErrMsg
' ファイルポインタ
Dim n As Long
n = FreeFile
Open stFileName For Output As #n ← ここでエラーになる。
Print #n, stBuff
Close #n
writeText = True
Exit Function
ErrMsg:
' エラー時処理
MsgBox Err.Description, vbCritical, sysName
writeText = False
End Function
↑↑↑書き込みではエラーになります。
以上、よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:12
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
EXCEL 一部のオブジェクトだけを固定したい
Excel(エクセル)
-
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
ファイルのアクセス回数について
Access(アクセス)
-
-
4
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
5
メッセージボックスの非モーダル化について
Visual Basic(VBA)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
EXCELファイルに誰がアクセスしたかを見たい
Access(アクセス)
-
8
VB Scriptで隠しファイル、フォルダの表示/非表示の切り替え
Visual Basic(VBA)
-
9
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
-
10
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
11
Application.Runエラー(1004)
Excel(エクセル)
-
12
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
13
バックグラウンドのプロセスのエクセルを閉じる方法
Visual Basic(VBA)
-
14
【Excel VBA】ブックを開いた時、指定のシート以外非表示にするマクロ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでファイルパスが長すぎてコ...
-
ASPで,mdbファイルへのinsert...
-
エクセルVBA フォームを開く時...
-
【Excel VBA】PDFを作成して,...
-
Microsoft Access エラー 3051
-
グーグルドライブからコピーし...
-
Refreshで落ちる
-
ExcelVBAで、隠しフォルダにあ...
-
FFFTPでサーバに新規フォルダが...
-
OCXのライセンス
-
Excelでdatファイルを作成??
-
Thunderbird ローカルフォルダ...
-
ボタンをファイルにリンクさせたい
-
batファイル処理でのテキストフ...
-
ファイルやフォルダの有無、他...
-
Access2003で「オブジェクト'○○...
-
複数のファイルを同時検索し、...
-
テキストファイルの文字色に色...
-
link rel index について。
-
バッチファイルが作成できない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでファイルパスが長すぎてコ...
-
Microsoft Access エラー 3051
-
Refreshで落ちる
-
【Excel VBA】PDFを作成して,...
-
ExcelVBAで、隠しフォルダにあ...
-
エクセルVBA フォームを開く時...
-
FFFTPでサーバに新規フォルダが...
-
ブラウザでASPファイルを開こう...
-
ASP上でFileSystemObjectのDele...
-
VBAでFTPファイル転送がうまく...
-
フォルダ参照ではなくファイル...
-
ASPのファイルを他のサーバにコ...
-
Excel VBA シートを指定して...
-
グーグルドライブからコピーし...
-
VBSで指定したフォルダにファイ...
-
オンラインスキャンをしようと...
-
ASP.NETで、別サーバーへファイ...
-
BASP21のアップロードについて
-
web.configファイル内、valueに...
-
CSVファイルの出力に関して
おすすめ情報