お世話になります。
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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
マクロでネットワーク上のコンピューターへの接続
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
ファイルのアクセス回数について
Access(アクセス)
-
-
4
EXCELファイルに誰がアクセスしたかを見たい
Access(アクセス)
-
5
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
6
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
7
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
8
EXCEL 一部のオブジェクトだけを固定したい
Excel(エクセル)
-
9
初回起動のみ判別したい
Visual Basic(VBA)
-
10
VBAでシート挿入を禁止したい。
Visual Basic(VBA)
-
11
フォルダー名一覧を作成するVBAでのエラー
その他(Microsoft Office)
-
12
フォーム上の現在アクティブなコントロールの取得
Access(アクセス)
-
13
VBAでアカウント名を取得する方法
その他(Microsoft Office)
-
14
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
15
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
16
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
17
UserForm
Visual Basic(VBA)
-
18
ExcelでVBAを使用した際に、『パス名が無効です』とエラーになります。
Excel(エクセル)
-
19
VBAでワークシートを引数としてサンプル関数に渡したい
Visual Basic(VBA)
-
20
バックグラウンドのプロセスのエクセルを閉じる方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでファイルパスが長すぎてコ...
-
Excel VBA シートを指定して...
-
Microsoft Access エラー 3051
-
エクセルVBA フォームを開く時...
-
XMLDOMのsaveメソッドのエラー
-
ExcelVBAで、隠しフォルダにあ...
-
グーグルドライブからコピーし...
-
web.configファイル内、valueに...
-
ADODB.Recordsetを使用してExce...
-
Lubuntuでフォントをインストー...
-
【Excel VBA】PDFを作成して,...
-
OCXのライセンス
-
ASP上でFileSystemObjectのDele...
-
FFFTPでサーバに新規フォルダが...
-
フォルダ参照ではなくファイル...
-
Access2003で「オブジェクト'○○...
-
フォルダ作成用バッチファイル...
-
Excelでdatファイルを作成??
-
Thunderbird ローカルフォルダ...
-
複数のテキストファイルをexcel...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでファイルパスが長すぎてコ...
-
【Excel VBA】PDFを作成して,...
-
Microsoft Access エラー 3051
-
Lubuntuでフォントをインストー...
-
Excel VBA シートを指定して...
-
Refreshで落ちる
-
フォルダ参照ではなくファイル...
-
FFFTPでサーバに新規フォルダが...
-
VBAでFTPファイル転送がうまく...
-
エクセルVBA フォームを開く時...
-
ExcelVBAで、隠しフォルダにあ...
-
グーグルドライブからコピーし...
-
web.configファイル内、valueに...
-
OCXのライセンス
-
ブラウザでASPファイルを開こう...
-
ASP上でFileSystemObjectのDele...
-
ADODB.Recordsetを使用してExce...
-
VBSで指定したフォルダにファイ...
-
BASP21のアップロードについて
-
【python】pandasでExcel(...
おすすめ情報