お世話になります。
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(エクセル)
-
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
-
-
4
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
5
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
6
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
7
VBAでアカウント名を取得する方法
その他(Microsoft Office)
-
8
EXCELファイルに誰がアクセスしたかを見たい
Access(アクセス)
-
9
VB Scriptで隠しファイル、フォルダの表示/非表示の切り替え
Visual Basic(VBA)
-
10
ファイルのアクセス回数について
Access(アクセス)
-
11
エクセルVBAでシートモジュールでのパブリック変数
Excel(エクセル)
-
12
フォルダー名一覧を作成するVBAでのエラー
その他(Microsoft Office)
-
13
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
14
マクロでネットワーク上のコンピューターへの接続
Excel(エクセル)
-
15
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
16
UserForm
Visual Basic(VBA)
-
17
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
18
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
19
バックグラウンドのプロセスのエクセルを閉じる方法
Visual Basic(VBA)
-
20
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでファイルパスが長すぎてコ...
-
Microsoft Access エラー 3051
-
ファイルが別のPCで開けない
-
Refreshで落ちる
-
【Excel VBA】PDFを作成して,...
-
BASP21のアップロードについて
-
エクセルVBA フォームを開く時...
-
フォルダ参照ではなくファイル...
-
ASP.NETで、別サーバーへファイ...
-
ExcelVBAで、隠しフォルダにあ...
-
EXCEL VBA ファイルが開かれて...
-
VBSで指定したフォルダにファイ...
-
外部ファイルを読み込むFlashが...
-
OCXのライセンス
-
Lubuntuでフォントをインストー...
-
Excelでdatファイルを作成??
-
batファイル処理でのテキストフ...
-
複数のテキストファイルをexcel...
-
OpenTextFile で書き込みできま...
-
HTMLプログラムにExcelをリンク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでファイルパスが長すぎてコ...
-
Microsoft Access エラー 3051
-
Lubuntuでフォントをインストー...
-
【Excel VBA】PDFを作成して,...
-
Refreshで落ちる
-
ExcelVBAで、隠しフォルダにあ...
-
Excel VBA シートを指定して...
-
FFFTPでサーバに新規フォルダが...
-
VBAでFTPファイル転送がうまく...
-
フォルダ参照ではなくファイル...
-
エクセルVBA フォームを開く時...
-
グーグルドライブからコピーし...
-
OCXのライセンス
-
ファイルが別のPCで開けない
-
ASP上でFileSystemObjectのDele...
-
ASP.NETで、別サーバーへファイ...
-
VBSで指定したフォルダにファイ...
-
BASP21のアップロードについて
-
【python】pandasでExcel(...
-
vba エクセルダウンロードファ...
おすすめ情報