| |
▼けい さん：
同じ環境が準備できなかったので正確な回答か自信がないのですが、
Web上で２つのBookを開くと確かにおかしな動作をしますね。
「作成されたBookをデスクトップ上に保存して閉じる」という案でどうでしょうか？
最後にMacro_test.xlsを閉じてしまうと
Web上では「サーバが見つかりません」エラーとなりました。
「デスクトップにファイルが作成されました。
このファイルを保存せずに閉じてください」とか書いたSheetを
Macro_testに準備しておき、
そのSheetをActiveにした状態で終わらせるほうが良いと思います。
他の方からより良い回答がつくかも。
Option Explicit
Sub Auto_Open()
Dim wb As Workbook
Dim myPath As String
Dim myFile As String
Dim WSHobj As Object
Dim DtPath As String
'デスクトップパスの生成
Set WSHobj = CreateObject("WScript.Shell")
DtPath = WSHobj.SpecialFolders("Desktop")
Set WSHobj = Nothing
myPath = ThisWorkbook.Path
myFile = "test.csv"
'ローカルで実行できるようにパスを変更
Workbooks.OpenText Filename:=myPath & "\" & myFile
Set wb = Workbooks.Add
ThisWorkbook.Sheets(1).Copy Before:=wb.Sheets(1)
'test.csvを使っていないが、
'このあたりにtest.csvの処理がある？？
ThisWorkbook.Sheets(1).Copy Before:=wb.Sheets(1)
wb.Worksheets(1).Range("H1") = "確認用文字列"
'test.csvを閉じる
Workbooks(myFile).Close False
'作成したBookをデスクトップへ保存して閉じる
wb.Close True, DtPath & "\作成したBook.xls"
Set wb = Nothing
'Macroのブックを閉じる
ThisWorkbook.Close False
'↑Macroのブックを閉じると、
'Web上では「サーバが見つかりません」エラーになります。
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
