|
USB(ドライブ文字Uに設定しています)のフォルダにあるブックをFDに転送したく思っています。FDの中に「平安」というフォルダが無い場合は、「フォルダーがなく、フォルダを作成する」メッセージをだすこと・・・これは出来ましたが、FDのフォルダーのなかにファイルがある場合のメッセ−を出すことが出来ません。現在『コメント』にとどめていますが、どこが問題なのでしょうか、教えてください。
コードは次の通です。
Sub USBからFDにフォームコピーし最終行データをフォームの最上行に貼付け()
Dim i As Long
Dim j As Long
j = Range("B65536").End(xlUp).Row
Filename = Dir("A:\平安", vbDirectory)
If Filename = "" Then
MsgBox "FDに「平安」のフォルダがありません" & _
Chr(10) & "「フォルダを作成してください」"
Exit Sub
End If
For i = 6 To j
' Filename = "A:\平安\" & Cells(i, 2)・・・この部分のコードが分かりません
' If Filename <> "" Then
' MsgBox "「ファイルは既にあります」"
' Exit Sub
' End If
Workbooks.Open Filename:="U:\平安\" & Cells(i, 2)
Range("B65536").End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("B3").Select
ActiveSheet.Paste
Range("B2").CurrentRegion.Select
列数 = Selection.Columns.Count
行数 = Selection.Rows.Count
Selection.Offset(2, 0).Select
Selection.Resize(行数 - 1).Select
Selection.ClearContents
Range("A1").Select
ActiveWorkbook.SaveAs Filename:="A:\平安\" &
ActiveWorkbook.Name '& ".xls"
Workbooks("WorkOriginal").Activate
Next
End Sub
よろしくお願いします
|
|