|
▼YN62 さん 今日は。
デスクトップのパスはWindowsのバージョンによって、たとえば、
Meの時 C:\WINDOWS\デスクトップ
XPの時 C:\Documents and Settings\kobasan\デスクトップ
のように異なります。デスクトップ上のフォルダやファイルのパスは気をつける必要があります。
従って、デスクトップに特定するのなら、次のように変更したください。
>destFolder = "C:\WINDOWS\デスクトップ\集計" '<=======環境に合わせて変更してください
を
destFolder = deskTopPath & "\集計" '<=============環境に合わせて変更してください
に変えて、
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で調べています。
私はこのような場合、柔軟性を持たせるため、
マクロを含むBookと転記先のブックを同じフォルダに入れて、
destFolder = Thisworkbook.Path
としています。
試してみてください。
>この部分でエラーが発生しています。
> Application.ScreenUpdating = False
> destFolder = "C:\WINDOWS\デスクトップ\集計" '<===============環境に合わせて変更してください
> Workbooks.Open Filename:=destFolder & "\得点1.xls"
>
>デスクトップ上で動作させていますが、パスも正しいのですが・・・
>エラーがworkbooks.openのところで発生してしまいます。
>「実行時エラー1004」です。ファイルが見つからない、保存場所が異なるか
>というアラームです。
>
>これだけでは分かりにくいでしょうが・・・workbooksが特定できていません。
>何か気づきの点が有りましたら、教えてください。
|
|