Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53455 / 76732

←次へ　｜　前へ→


	【28091】Re:３段組のデータを２段組に仕上げる

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)で
実行時エラー９が出ます。

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で調べています。
>

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

お礼が遅くなりました。試行錯誤し、なかなか上手くいかなかったもの
ですから遅くなりました。
失礼します。

1 hits

▼

【27980】３段組のデータを２段組に仕上げる YN62 05/8/25(木) 21:13