|
▼kobasan さん:
ありがとうございました。
ご指摘の
↓
柔軟性を持たせるため、
マクロを含むBookと転記先のブックを同じフォルダに入れて、
destFolder = Thisworkbook.Path
としています。
試してみてください。
に変更して全て上手く行きました。
>デスクトップのパスはWindowsのバージョンによって、たとえば、
>Meの時 C:\WINDOWS\デスクトップ
>XPの時 C:\Documents and Settings\kobasan\デスクトップ
>のように異なります。デスクトップ上のフォルダやファイルのパスは気をつける必要があります。
98を使っています。Meと同じパスです。
>従って、デスクトップに特定するのなら、次のように変更したください。
>>destFolder = "C:\WINDOWS\デスクトップ\集計" '<=======環境に合わせて変更してください
>を
>destFolder = deskTopPath & "\集計" '<=============環境に合わせて変更してください
>
>に変えて、
上記コードに変えましたが、
With Workbooks("得点1.xls").Sheets(1)で
実行時エラー9が出ます。
destFolder = Thisworkbook.Pathを
採用させていただき、使います。
>
>Private Function deskTopPath() As String
>Dim WsShell As Object
> Set WsShell = CreateObject("WScript.Shell")
> deskTopPath = WsShell.SpecialFolders("Desktop")
> Set WsShell = Nothing
>End Function
>
>を前回のマクロと同じ標準モジュールに追加してください。
>
>デスクトップのパスはFunction deskTopPathで調べています。
>
ともあれ、無事解決できました。ありがとうございました。
お礼が遅くなりました。試行錯誤し、なかなか上手くいかなかったもの
ですから遅くなりました。
失礼します。
|
|