Excel VBA質問箱 IV

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

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


53455 / 76732 ←次へ | 前へ→

【28091】Re:3段組のデータを2段組に仕上げる
お礼  YN62  - 05/8/28(日) 15:25 -

引用なし
パスワード
   ▼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で調べています。
>

ともあれ、無事解決できました。ありがとうございました。

お礼が遅くなりました。試行錯誤し、なかなか上手くいかなかったもの
ですから遅くなりました。
失礼します。
2 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 お礼

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