Excel VBA質問箱 IV

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

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


41383 / 76732 ←次へ | 前へ→

【40429】Re:ブラウザでエクセルを実行したときの...
回答  ハチ  - 06/7/13(木) 16:09 -

引用なし
パスワード
   ▼けい さん:
同じ環境が準備できなかったので正確な回答か自信がないのですが、
Web上で2つの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

1 hits

【40402】ブラウザでエクセルを実行したときの閉じ... けい 06/7/13(木) 11:40 質問
【40414】Re:ブラウザでエクセルを実行したときの... ハチ 06/7/13(木) 13:57 発言
【40415】Re:ブラウザでエクセルを実行したときの... けい 06/7/13(木) 15:01 回答
【40429】Re:ブラウザでエクセルを実行したときの... ハチ 06/7/13(木) 16:09 回答
【40433】Re:ブラウザでエクセルを実行したときの... けい 06/7/13(木) 17:06 回答
【40441】Re:ブラウザでエクセルを実行したときの... ハチ 06/7/13(木) 19:13 回答
【40452】Re:ブラウザでエクセルを実行したときの... ハチ 06/7/14(金) 0:56 発言

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