Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9903 / 13644 ツリー ←次へ | 前へ→

【24827】保存方法 はま 05/5/11(水) 13:56 質問[未読]
【24830】Re:保存方法 Kein 05/5/11(水) 14:10 発言[未読]
【24835】Re:保存方法 はま 05/5/11(水) 15:11 発言[未読]
【24842】Re:保存方法 Jaka 05/5/11(水) 16:08 発言[未読]
【24847】Re:保存方法 はま 05/5/11(水) 16:49 質問[未読]
【24850】Re:保存方法 Jaka 05/5/11(水) 17:12 回答[未読]
【24859】Re:保存方法 ponpon 05/5/11(水) 19:41 発言[未読]
【24865】Re:保存方法 はま 05/5/12(木) 8:59 質問[未読]
【24866】Re:保存方法 はま 05/5/12(木) 9:12 質問[未読]
【24867】Re:保存方法 はま 05/5/12(木) 9:22 お礼[未読]

【24827】保存方法
質問  はま  - 05/5/11(水) 13:56 -

引用なし
パスワード
   特定のセルの内容をファイル名にしてブックを保存するマクロをつくりました。
自分のパソコンでの処理は可能ですが、
他のパソコン(ネットワークコンピュータ)でそのファイルをひらいて
マクロを実行するとエラーが出ます。
この時はどうすればよろしいでしょうか。

【24830】Re:保存方法
発言  Kein  - 05/5/11(水) 14:10 -

引用なし
パスワード
   どんなコードを組んでいて、どこでどんなエラーメッセージが出ているかを
書かないと、判断が出来ませんが。

【24835】Re:保存方法
発言  はま  - 05/5/11(水) 15:11 -

引用なし
パスワード
   スミマセンでした。

コードは下記のとおりです。

Sub ブックに名前を付けて保存()
Dim FName As String
FName = ActiveSheet.Range("L28").Value
If FName = "" Then
 MsgBox "セルL28に発注番号が入力されていません"
 Exit Sub
End If
ActiveWorkbook.SaveAs FileName:="C:\共有ファイル\発注依頼書\ファイル保存\" & FName & ".xls"
End Sub

で、別のパソコンからこのファイルをネットワークをつかって開いて、このコードのマクロボタンを押すと、

実行時エラー"1004":
ファイル'C:\共有ファイル\発注依頼書\ファイル保存\'にアクセスできません。

と表示されます。

文章不足大変申し訳ございませんでした。

【24842】Re:保存方法
発言  Jaka  - 05/5/11(水) 16:08 -

引用なし
パスワード
   こんにちは。

"C:\共有ファイル\発注依頼書\ファイル保存\"
上のC:は、現在お使いのパソコンのCドライブを指します。
と言う事は、別のPCのCドライブにも共有ファイルフォルダがあってその中に発注依頼書フォルダがあって伝々となっていなければなりません。
要するに別PCのCドライブ該当するフォルダ無いとエラーになります。

msgbox ThisWorkbook.Path

で、このマクロがかかれているファイルのパスがわかりますから、これを利用したらどうでしょうか?
別ブックを操作しているのなら別ですが....。

【24847】Re:保存方法
質問  はま  - 05/5/11(水) 16:49 -

引用なし
パスワード
   ありがとうございます。

「このマクロがかかれているファイルのパスがわかりますから」
の「パス」ってなんでしょうか。

即答ありがとうございました。

【24850】Re:保存方法
回答  Jaka  - 05/5/11(水) 17:12 -

引用なし
パスワード
   ▼はま さん:
>「このマクロがかかれているファイルのパスがわかりますから」
>の「パス」ってなんでしょうか。
OSから見たファイルの保存してある場所
つまり
C:\共有ファイル\発注依頼書\ファイル保存
の事です。

VBAヘルプで「パス」を検索すると何個か出てきますから、どれでも良いので読んでみてください。パスって文字が何度も出てくると思います。

【24859】Re:保存方法
発言  ponpon  - 05/5/11(水) 19:41 -

引用なし
パスワード
   こんばんは。
横から失礼します。
パスとは、この場合、保存場所のアドレスのようなものです。

>C:\共有ファイル\発注依頼書\ファイル保存\
この場合、あなたのパソコンのC:\共有ファイル\発注依頼書\ファイル保存に
ファイルを保存します。

ネットワーク上のパソコンも自分の中の
 C:\共有ファイル\発注依頼書\ファイル保存に保存しようとしますが、
 ネットワーク上のパソコンの中には、
 C:\共有ファイル\発注依頼書\ファイル保存
 が、ありません。だからエラーとなります。
この場合、
保存先を "\\あなたのパソコンのネットワーク上の名前\C:\共有ファイル\発注依頼書\ファイル保存"にしないといけないと思います。

マクロの記録でネットワーク上のパソコンからあなたのパソコンの
 C:\共有ファイル\発注依頼書\ファイル保存にファイルを保存する記録をとると
 パスがわかると思います。

【24865】Re:保存方法
質問  はま  - 05/5/12(木) 8:59 -

引用なし
パスワード
   >おはようございます。返事ありがとうございます。すごく助かります!
保存先を "\\あなたのパソコンのネットワーク上の名前\C:\共有ファイル\発注依頼書\ファイル保存"にしないといけないと思います。
>
>あなたのパソコンのネットワーク上の名前を入れてみました。
ActiveWorkbook.SaveAs FileName:="\\Bo-730-03\C:\共有ファイル\発注依頼書\ファイル保存\" & FName & ".xls"
End Sub

ネットワーク上のパソコンからマクロボタンを押したらまたエラーが出ちゃいました。

実行時エラー'1004':
'SaveAs'メソッド失敗しました。'Workbook'オブジェクト

と書かれていました。

みなさん何度も質問スミマセン。
よろしくお願い致します。

【24866】Re:保存方法
質問  はま  - 05/5/12(木) 9:12 -

引用なし
パスワード
   Jaka さんありがとうございます。
>おはようございます。
>
>『msgbox ThisWorkbook.Path』
>
>は何処に入力すれば宜しいのでしょうか?

【24867】Re:保存方法
お礼  はま  - 05/5/12(木) 9:22 -

引用なし
パスワード
   みなさんありがとうございました。

"\\Bo-730-03\共有ファイル\発注依頼書\ファイル保存\" & FName & ".xls"

で出来ました。
いろいろアドバイス本当にありがとうございました。
これからもお世話になるかと思いますが、また宜しくお願い致します。

9903 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free