|
▼ハチ さん:
>まず、どうやって開いているのですか?
>閉じ方は、開き方によって変わってくると思いますよ。
すみません・・・
説明不足で・・・
Private Sub worksheet_change(Byval C as Range)
Dim 番号 As String
Dim PDFFile As String
Dim エクセルFile As String
Dim File As Variant
番号=Worksheets("sheet1").range("C65536").End(xlup).Offset(0,5)
If Not Intersect(C,Range(C3:C65536")) Is Nothing Then
PDFFile="保存ファイル場所"\" & 番号 & ".pdf"
エクセルFile="保存ファイル場所"|" & 番号 & ".xls"
If Dir(PDFFile)<>"" Then
File=Shell("C:\Program Files\Adobe\Acrobat 7.0\Acrobat.exe " & PDFFile)
Workbooks.Open エクセルFile
End If
End If
End Sub
↑上記のようなコードを書いてファイルを呼び出しています。
開いたエクセルをデータ更新したら、
VBAでエクセルの集計を行い、そのままエクセルもPDFも自動で閉じて終了!
という形にしたいのですが・・・
どうしたらよいのでしょうか?
|
|