お世話になります。
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
推しミネラルウォーターはありますか?
推しミネラルウォーターがあったら教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ファイルのアクセス回数について
Access(アクセス)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
-
4
EXCELファイルに誰がアクセスしたかを見たい
Access(アクセス)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
VB Scriptで隠しファイル、フォルダの表示/非表示の切り替え
Visual Basic(VBA)
-
7
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
8
Filesearchオブジェクトを使用して隠しファイルを検索したい
Visual Basic(VBA)
-
9
隠しファイルの削除
Visual Basic(VBA)
-
10
EXcelのマクロで相対パスでファイルを開く
その他(Microsoft Office)
-
11
メッセージボックスの非モーダル化について
Visual Basic(VBA)
-
12
指定したシート名以外を非表示にするには?VBA
Excel(エクセル)
-
13
VBAで別モジュールへの変数の受け渡し方法
Visual Basic(VBA)
-
14
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
15
別ブックをダイアログボックスで指定してそこにあるシートをコピーしたい
Excel(エクセル)
-
16
Application.Runエラー(1004)
Excel(エクセル)
-
17
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel VBA】PDFを作成して,...
-
VBAでファイルパスが長すぎてコ...
-
Refreshで落ちる
-
Excel VBA メソッドについてお...
-
ブラウザでASPファイルを開こう...
-
Microsoft Access エラー 3051
-
ExcelVBAで、隠しフォルダにあ...
-
ASP.NETで、別サーバーへファイ...
-
BASP21のアップロードについて
-
FFFTPでサーバに新規フォルダが...
-
Lubuntuでフォントをインストー...
-
Tiny FTP Daemonの設定について
-
フォルダ参照ではなくファイル...
-
Excelでdatファイルを作成??
-
バッチによるショートカットの...
-
複数のテキストファイルをexcel...
-
フォルダ作成用バッチファイル...
-
ダウンロード不可PDFファイルは...
-
CSVファイル操作
-
Access2003で「オブジェクト'○○...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【Excel VBA】PDFを作成して,...
-
Microsoft Access エラー 3051
-
VBAでファイルパスが長すぎてコ...
-
Refreshで落ちる
-
エクセルVBA フォームを開く時...
-
VBAでFTPファイル転送がうまく...
-
FFFTPでサーバに新規フォルダが...
-
ExcelVBAで、隠しフォルダにあ...
-
フォルダ参照ではなくファイル...
-
Excel VBA シートを指定して...
-
OCXのライセンス
-
ブラウザでASPファイルを開こう...
-
Lubuntuでフォントをインストー...
-
ASP上でFileSystemObjectのDele...
-
VBSで指定したフォルダにファイ...
-
XMLDOMのsaveメソッドのエラー
-
BASP21のアップロードについて
-
【python】pandasでExcel(...
-
ADODB.Recordsetを使用してExce...
-
オンラインスキャンをしようと...
おすすめ情報