- 締切済み
ローカル⇒ネットワーク移動でマクロが動かなくなった
いまエクセルのマクロを組んでいます。 ローカル（マイドキュメント）に保存して作業していたファイルを、完成後に会社の共有ネットワークフォルダに移したところ、マクロがうまく作動しなくなりました。 「（参照先の）ファイルが見つかりません。ファイル名およびファイルの保存場所が正しいかどうかを確認してください」 というエラーが出ます。 ボタンを押したら画像が出てくるマクロを組んでいて、ファイルの定義を以下のようにしてあるのですが、どのように修正すればよいのでしょうか？ ChDir ThisWorkbook.Path Workbooks.Open filename:="aaa.xls" 絶対パスを相対パスにすればよい、というような記述を本で見たのですが、具体的に記述をどう変更すればよいのかわかりません。 初歩的な質問かもしれませんが、初心者なものでどうぞよろしくお願いします。
- lightheart
- お礼率52% (10/19)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- Dxak
- ベストアンサー率34% (510/1465)
- Hayashi_Trek
- ベストアンサー率44% (366/818)
ChDir はドライブは変えません。 現在のカレンドドライブ内（おそらくC:）でフォルダ移動します。 ChDir を使わずに、きちんとファイル名を表記すれば良い。 Workbooks.Open filename:=ThisWorkbook.Path & "\" & "aaa.xls"
お礼
ありがとうございました！ なんとか出来ました。
関連するQ&A
- 【Excel】「リンクを更新する」のダイアログを表示させないようにするには
教えて下さい！ AAA.xlsとBBB.xlsというファイルがあります。 AAA.xlsを開くと自動的にBBB.xlsが開くようになっています。 BBB.xlsにはグラフがあり、AAA.xlsからデータを読んでいるため「リンクを更新しますか？」というダイアログが表示されてしまいます。 これを表示させないようにするにはどういう記述をしたらよろしいでしょうか？ AAA.xlsを開く際にBBB.xlsも開くように、AAA.xlsに以下のように記述してあります。 ================================================================ Sub Auto_open() Workbooks.Open Filename:=ThisWorkbook.Path & ("\BBB.xls") Workbooks("AAA.xls").Worksheets("Sheet1").Activate End Sub ================================================================ その記述に付け加える形になると思うのですが。 宜しくお願い致します。
- 締切済み
- オフィス系ソフト
- エクセルのマクロで、他のブックを開くときについて
マクロの記録を利用して、他のブックを開くことをしました。 マクロのモジュールを見たら、 ChDir "C:\Documents and Settings\＊＊＊＊＊\デスクトップ" Workbooks.Open Filename:="C:\Documents and Settings\＊＊＊＊＊\デスクトップ\○○.xls" となっていました。 1行目の「Chdir」というのはなんでしょう？ また、2行目では開きたいブックをパスを使ってあらわしています。 今マクロを動かしているブックと同じフォルダ内にあるブックや そのフォルダから見て上位のフォルダとか、「ｃ：」から始まる パスを使わないような書き方はあるのでしょうか？ ご助言お願いします。
- ベストアンサー
- オフィス系ソフト
- EXcelのマクロで相対パスでファイルを開く
Excelでマクロを使って他のブックを開こうとしています。 同じフォルダ内のブックを開くには Workbooks.Open Filename:=ThisWorkbook.Path & "\ブック名.xls" で開く事が出来たのですが、一つ上の階層にあるブックを開きたいときはどのようなコマンドを使えば良いのでしょうか？？ お教え下さい。
- ベストアンサー
- その他MS Office製品
- エクセルVBAでパスの￥マークについて
このマクロを記述したBOOKと同じフォルダー内にある、シート001.xls を開くマクロです。 同一フォルダーにあるのですから、このような記述になると思います。 Sub kakunin1() Workbooks.Open (ThisWorkbook.Path & "\" & "シート001.xls") End Sub しかし、以下の３つはすべてシート001.xls を開くことができました。 Sub kakunin2() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "シート001.xls") End Sub Sub kakunin3() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "\" & "シート001.xls") End Sub Sub kakunin4() Workbooks.Open (ThisWorkbook.Path & "\" & "\" & "\" & "\" & "\" & "\" & "シート001.xls") End Sub パスの￥マークは階層をあらわすのだと思っていましたがいくつ重ねてもなぜ開くのでしょうか？非常に初歩的な質問だと思いますが、ご教示いただければ幸いです。
- ベストアンサー
- オフィス系ソフト
- パソコンが変わってもマクロが実行できるようにしたい
windowsXP Excel2000でマクロ作成しました。 私は 6）の aaaa のパソコンを使っています。 これをＵＳＢメモリで他のパソコンに複写し使おうとすると当然エラーがでます。 そのパソコンに 6)ChDir "C:\Documents and Settings\ｂｂｂｂ\デスクトップ\請求書フォルダ" '変更する。 とすればこのマクロが使えます。 パソコンが変わってもこのマクロが使えるようにしたいのですがどうすればよろしいでしょうか。 今はいちいち6）のaaaa、 bbbb部分を変更して使っています。 Sub ブック名に現在の日付を付加して保存() 1)Application.DisplayAlerts = False 2)Dim Filename As String 3)Application.DisplayAlerts = False 4)ChDrive ThisWorkbook.Path 'ブックのドライブに変更する。 5)ChDir ThisWorkbook.Path 'ブックのフォルダに変更する。 6)ChDir "C:\Documents and Settings\aaaa\デスクトップ\請求書フォルダ" '変更する。 7)Filename = Format(Date, "yyyymmdd") 8)On Error Resume Next 9)ActiveWorkbook.SaveAs Filename:="請求" & Filename & ".xls" 10)Err.Clear 11)Application.Quit 12)End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ 簡素化
マクロ初心者です。 下記のデータのコピペする、マクロを使用しています。 下記にはAAAとBBBの2つのエクセルへのコピペのみしか記述していませんが、 その下に50ファイル分のファイル名、コピー元、コピー先だけが違うマクロが並んでいます。 メンテナンスや更新に手作業で行っているので、非常に時間がかかります。 例えば、別のシートにファイル名、コピー元、コピー先の一覧を作成し、 そのシートでファイル名、コピー元、コピー先を修正し、コピペができるようになるなど、 どうにかして簡素化したいのですが、どのように実現すればいいか、教えてくださると助かります。 ---------------------------------------------------------------------- Private Sub CommandButton1_Click() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\AAA.xls", UpdateLinks:=0) ThisWorkbook.Sheets("BBB").Range("A1:B1").Copy wb.Sheets("CCC").Range("A1:B1").PasteSpecial (xlPasteValues) Application.CutCopyMode = False Application.DisplayAlerts = False wb.Close (True) Application.DisplayAlerts = True Application.ScreenUpdating = True Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\BBB.xls", UpdateLinks:=0) ThisWorkbook.Sheets("BBB").Range("A2:B2").Copy wb.Sheets("CCC").Range("A2:B2").PasteSpecial (xlPasteValues) Application.CutCopyMode = False Application.DisplayAlerts = False wb.Close (True) Application.DisplayAlerts = True Application.ScreenUpdating = True 'アイテム名、コピー元、コピー先、だけがちがう、同じようなマクロが50ファイル分ある。 End Sub
- ベストアンサー
- オフィス系ソフト
- 指定のファイルを開くマクロ
こんにちは。 いろいろやってみましたが、うまくいかなかったのでアドバイスいただけませんか。 マクロで指定のファイルを開く場合、 ChDir "C:\File" Workbooks.Open Filename:="リスト.csv" のように指定しています。 A1にC:\File A2にリスト.csv このように記述して ChDir "A1" Workbooks.Open Filename:="A2" のように開くようにはできませんか。 それと、似たようなことですが Windows("リスト.csv").Activate と指定するところを Windows("A2").Activate のように指定したい場合はどうでしょうか。 次に、A1にディレクトリ A2にファイルネームを指定するためにダイアログを出したいのですが、 そのような便利なマクロはあるのでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 他のブックのマクロが見つらない。とのエラ－について
Excel VBAで、他のブックを開きそこのマクロを動かす事をしたいのですが、マクロが見つからないとのエラーが出ます。 'ファイル作成 Dim a As Variant Dim b As Variant a = Worksheets("sheet3").Range("e2").Value b = Worksheets("sheet3").Range("c2").Text ActiveWorkbook.SaveCopyAs Filename:=b & a & "-提出用作業表.xls" ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\BackUp\" & b & a & "-提出用作業表.xls" Workbooks.Open Filename:=ThisWorkbook.Path & "\" & b & a & "-提出用作業表.xls" Application.Run b & a & "-提出用作業表.xls" & "!" & "提出用作業表シート削除" MsgBox "提出用作業表を作成したので、サーバーの所定の場所に保存提出して下さい" End Sub 変数が多く見にくくて申し訳ありません。上記のとおり記述したところ、対象ファイルが開くのですが「実行時エラー．１００４ マクロが見つかりません」とエラーが出ます。 しかし、エラーメッセージのなかに「'2006年12月社員1-提出用作業表.xls!提出用作業表シート削除'」と対象マクロが記述されてます。多分つまらないことを見落としているのではないかと思うのですが、理由がわかりません。ご教授お願いします。 対象マクロは、標準モジュール４に、Public Subで記載してます。This Wookbook内に記述してもだめでした。マクロの内容は、Sheetを１つ残して他を削除するというものです。 Application.Run Application.Run ThisWorkbook.Path & "\" & b & a & "-提出用作業表.xls" & "!" & "提出用作業表シート削除"でもだめでした。
- 締切済み
- Visual Basic
- EXCEL2003でマクロ ファイル操作
Workbooks.Open Filenameでファイルを開くとき フルパスを指定してやらないといけませんが、 マクロ実行ファイルと同ディレクトリにある場合は パスはいらないのでしょうか？ 別途記述（ロジック）方法があるのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
なんとか解決できました。 ありがとうございました。