Results of 1 - 1 of about 58 for CurrentDirectory (0.000 sec.)
- [[20090101111535]]
- #score: 13656
- @digest: 9b428c2452ee0ac9b340c119c1816c9e
- @id: 41479
- @mdate: 2009-01-05T01:27:53Z
- @size: 2377
- @type: text/plain
- #keywords: mainserver (23246), path1 (19342), template (14013), orders (13718), customer (11250), templates (10140), 山) (8781), 青山 (8391), service (7834), 続?? (7380), 未接 (7055), chck (6386), ー未 (5627), はpo (2810), currentdirectory (2576), professional (2286), runtime (2020), displayalerts (1735), activeworkbook (1427), ド自 (1312), workbooks (1291), fname (1266), version (1252), error (1179), ファ (1089), activate (1052), 大体 (873), resume (867), ァイ (843), 接続 (728), wscript (709), イル (706)
- 『コードエラー』（青山）
OS:XP Professional Excel Version: Excel2003 いつもお世話になっております。 VBAを使いExcelファイルから別のファイルを開くコードを作成したのですがファイルがうまく開きません。 コードの一部は次の通りです。 If chck = False Then Application.DisplayAlerts = False On Error Resume Next path1 = "¥¥Mainserver¥Customer Service¥Templates¥Orders" & "¥PO Template.xls" Set wb = Workbooks.Open(path1) fname = ActiveWorkbook.Name Range("A1").Select On Error GoTo 0 Application.DisplayAlerts = True End If Workbooks(fname).Activate ActiveWorkbook.Sheets("Order").Activate 上のコードではPO Templateのファイルがひらかないのですが、下のように書き換えると （Msgboxを足しただけ）ファイルが開くようになります。 コード自体はかわっていないのになぜMsgboxがないとファイルが開かないのでしょうか。 よろしくお願いいたします。 If chck = False Then Application.DisplayAlerts = False On Error Resume Next path1 = "¥¥Mainserver¥Customer Service¥Templates¥Orders" & "¥PO Template.xls" MsgBox "yes" Set wb = Workbooks.Open(path1) fname = ActiveWorkbook.Name Range("A1").Select On Error GoTo 0 Application.DisplayAlerts = True End If Workbooks(fname).Activate ActiveWorkbook.Sheets("Order").Activate ---- > 上のコードではPO Templateのファイルがひらかないのですが... どういうエラーが出ますか? On Error Resume Next をコメントにしてみるとどうなりますか? （kazu） ---- 早速のお返事ありがとうございます。 次のエラーがでてきます。 Runtime Error 1004 Method Open of object Workbook failed. よろしくお願いします。 (青山) ---- 確認ですが、すでにそのファイルが開いているということはないですか? 警告も無効になっているので、開かないのはMsgBox ではなくその前の状態 による可能性はないでしょうか。 (Mook) ---- お返事ありがとうございます。 ファイルは開いてありませんが、エラーがでます。 よろしくお願いします。 (青山) ---- 大体こんな感じ。 BJ path1 = "¥¥Mainserver¥Customer Service¥Templates¥Orders" On Error Resume Next CreateObject("WScript.Shell").CurrentDirectory = path1 On Error GoTo 0 If Err Then MsgBox "サーバー未接続???" Exit Sub End If If Dir(path1 & "¥PO Template.xls") = "" Then MsgBox "ファイルなし。" Exit Sub End If Set wb = Workbooks.Open(path1 & "¥PO Template.xls")... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200901/20090101111535.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97088 documents and 608557 words.
訪問者：