Excel VBA質問箱 IV

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

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


53504 / 76736 ←次へ | 前へ→

【28045】Re:3段組のデータを2段組に仕上げる
回答  kobasan  - 05/8/27(土) 10:21 -

引用なし
パスワード
   ▼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が特定できていません。
>何か気づきの点が有りましたら、教えてください。

0 hits

【27980】3段組のデータを2段組に仕上げる YN62 05/8/25(木) 21:13 質問
【27984】Re:3段組のデータを2段組に仕上げる kobasan 05/8/25(木) 22:03 回答
【27990】Re:3段組のデータを2段組に仕上げる YN62 05/8/25(木) 23:37 お礼
【28034】Re:3段組のデータを2段組に仕上げる YN62 05/8/26(金) 22:02 質問
【28035】Re:3段組のデータを2段組に仕上げる kobasan 05/8/26(金) 22:38 回答
【28037】Re:3段組のデータを2段組に仕上げる kobasan 05/8/26(金) 23:06 発言
【28042】Re:3段組のデータを2段組に仕上げる YN62 05/8/27(土) 8:09 質問
【28045】Re:3段組のデータを2段組に仕上げる kobasan 05/8/27(土) 10:21 回答
【28091】Re:3段組のデータを2段組に仕上げる YN62 05/8/28(日) 15:25 お礼
【28105】Re:3段組のデータを2段組に仕上げる kobasan 05/8/28(日) 22:11 発言
【28141】Re:3段組のデータを2段組に仕上げる YN62 05/8/29(月) 20:16 質問
【28143】Re:3段組のデータを2段組に仕上げる kobasan 05/8/29(月) 21:08 回答
【28232】Re:3段組のデータを2段組に仕上げる YN62 05/8/31(水) 21:04 お礼

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