您能否让我知道如何修改以下代码，以使其自动打开？
Range("A1:AK1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A1").Select
Workbooks.Open Filename:= _
"Y:\DentalConsumables\Company\DMC\DMC - Planning & Materials\Build Plan DTW Reports\DataWHSreports\2015-03-26_DWHS_PEN EU Fixed.xlsx" _
, UpdateLinks:=0, Notify:=False
ActiveWindow.SmallScroll Down:=12
如果仅日期部分更改，可以尝试一下：
编辑1：关闭打开的文件
Dim curDate As String, Fname As String
curDate = Format(Date, "yyyy-mm-dd") ' returns the current date in specified format
Dim wb As Workbook ' add a variable to pass your workbook object
Fname = "Y:\DentalConsumables\Company\DMC\DMC - Planning & Materials\" _
& "Build Plan DTW Reports\DataWHSreports\" & curDate
& "_DWHS_PEN EU Fixed.xlsx"
Set wb = Workbooks.Open(FileName:=Fname, UpdateLinks:=False, Notify:=False)
' ~~> Other cool stuff goes here
wb.Close False ' Close the opened workbook; False indicates to not save changes
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句