再質問：Win2000でエクセル97でシートを外部出力するとエラー

質問

マクロのことはまだ初心者で、下記のようなマクロの記録を作成してみたのですが、実行すると2000ではユーザーが変わるとエラー表示が出てしまって、困っています
ユーザー名は私の会社のイントラネットのユーザー番号です
シートは関数も入っているので、コピー＋値にしデスクトップに外部出力する方法にしています
昨日回答をもらったのですが今一歩のところでエラーになり解決できず、行き詰まっています、
名前を付けて保存の手順が良いと思うのですが？？
下記のマクロは参考に載せましたが、あてになりません
どうにか解決したいのでよろしくお願いします

このカ所が黄色になっていました
ChDir "C:\Documents and Settings\USR81043\デスクトップ"

Sub Win2000でシートのコピーをデスクトップに外部出力()
'
' Win2000でシートのコピーをデスクトップに外部出力 Macro
' マクロ記録日 : 2002/6/17 ユーザー名 : USR81043
'

'
Sheets("協力業者評価報告書").Select
Sheets("協力業者評価報告書").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Range("A2").Select
Application.CutCopyMode = False
ChDir "C:\Documents and Settings\USR81043\デスクトップ"
ActiveWorkbook.SaveAs FileName:= _
"C:\Documents and Settings\USR81043\デスクトップ\協力業者評価報告書1.xls", FileFormat:=
_
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False
_
, CreateBackup:=False
End Sub

回答No.3

noname#102878 · ベストアンサー

何をした時にエラーになりますか？
このWebブラウザからコードを丸ごとコピーすると、ここの掲示板によって自動的に改行されてしまった部分が構文エラーになり、赤く表示されます。
「 _」(スペース＋アンダーバー）は長くなりすぎる１行コードを途中で区切るための文字です。

Selection.PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:= False, _
Transpose:=False

この「１行」に関しましては元の質問文のままお使いください。

お礼

出来ました
すごいですね
大変ありがとうございました

今後ともよろしくお願いします

回答No.2

noname#102878

大変失礼しました。

Set wshShell As Object

これを

Set WshShell = CreateObject("WScript.Shell")

このように変更してください(^_^;;
これでイケるはずです。

補足

度々すいません
もう少し、申し訳ありませんが教えてください

ご指摘の変更箇所を下記に入れてみましたが、「コンバイルエラー；構文エラー」がまた出て

・この箇所が赤字

　Selection.PasteSpecial Paste:=xlValues,　　Operation:=xlNone, SkipBlanks:=
　_
　False, Transpose:=False

回答No.1

noname#102878

変更箇所のコードのみを書きます。

Sub Win2000でシートのコピーをデスクトップに外部出力()
Dim wshShell As Object ' WSHのShellオブジェクト
Dim strDesktop As String ' デスクトップのPath

Set wshShell As Object
strDesktop = wshShell.SpecialFolders("Desktop")
Set wshShell = Nothing

・
・
・
ChDir strDesktop
ActiveWorkbook.SaveAs FileName:= _
strDesktop & "\協力業者評価報告書1.xls"
End Sub

Windows Scripting Host というIEが提供する技術を使って現在のユーザーのデスクトップのパスを取得して変数 strDesktop に格納し、ChDirの行とSaveAsの行で使用します。
strDesktop = wshShell.SpecialFolders("Desktop")
この行の下に「MsgBox strDesktop」を書けば実際に変数strDesktopがどんな内容を取得しているか見ることが出来ます。

補足

夜遅くまで回答大変ありがとうございました
回答が来なくて、悩んでいました
ほんとにありがとうございました

もう少し、申し訳ありませんが教えてください

ご指摘の変更箇所を下記に入れてみましたが、「コンバイルエラー；構文エラー」が出て
・この箇所が黄色
　Sub Win2000でシートのコピーをデスクトップに外部出力
・この箇所が赤字
　Set wshShell As Object

　Selection.PasteSpecial Paste:=xlValues,　　Operation:=xlNone, SkipBlanks:=
　_
　False, Transpose:=False

－－－添削したもの－－－－－－－－－－－－－－－－
Sub Win2000でシートのコピーをデスクトップに外部出力()
Dim wshShell As Object ' WSHのShellオブジェクト
Dim strDesktop As String ' デスクトップのPath

Set wshShell As Object
strDesktop = wshShell.SpecialFolders("Desktop")
Set wshShell = Nothing

Sheets("協力業者評価報告書").Select
Sheets("協力業者評価報告書").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Range("A2").Select
Application.CutCopyMode = False
ChDir strDesktop
ActiveWorkbook.SaveAs FileName:= _
strDesktop & "\協力業者評価報告書1.xls"
End Sub