|
ぱっと見ただけなのでよく解ってませんけど。
>ActiveSheet.Range("C1:C600").Find(what:=名前).Select
↓
Dim MyRag As Range
Set MyRag = ActiveSheet.Range("C1:C600").Find(what:=名前)
If MyRag Is Nothing Then
MsgBox "NG"
'Exit Sub '← 一応コメントにしました。
End If
>bb = Selection.Offset(0, "-1").Value
以降↓こう書けます。
bb = MyRag.Offset(0, "-1").Value
>Select Case bb
>Case Is = "A"
>番号 = "00" & bb
>Case Is = "B"
>番号 = "00" & bb
>Case Is = "C"
>番号 = "00" & bb
>Case Is = "D"
>番号 = "00" & bb
>Case Is = "E"
>番号 = "00" & bb
>Case Is = "F"
>番号 = "00" & bb
>Case Is = "G"
>番号 = "00" & bb
>Case Is >= 10
>番号 = "0" & bb
>Case Is < 10
>番号 = "00" & bb
>End Select
↓
番号 = String(3 - Len(bb), "0") & bb
>検索1 = Dir("C:\Documents and Settings\mkn\デスクトップ\" & 製番1 & "部材明細表(ヘッド・テール)",
Attributes:=vbDirectory)
この「wkn」ってなんですか?
変数なら、こうしないとまずいんじゃないですか?
"C:\Documents and Settings\" & mkn & "\デスクトップ\"
因みにログインした人のデスクトップなら
CreateObject("WScript.Shell").SpecialFolders("Desktop")
で、取れます。
また、パス、ファイルフルネームは、1度変数に入れた方が見やすいかも....。
因みに
97だと、CopyFileは動かないし、As New FileSystemObject ってやった事ないので解りません。
|
|