|
楼主 |
发表于 2019-3-16 16:00
|
显示全部楼层
Private Sub Workbook_Open()
Dim f$
Dim oWB As Workbook
Dim oWK As Worksheet
Dim sFilePath As String
Sheet2.Visible = xlSheetHidden
With Sheet1
.Range("b2:o2").ClearContents
.Range("b4:o4").ClearContents
.Range("b7:o7").ClearContents
.Rows("10:" & Rows.Count).ClearContents
End With
Sheet2.Cells(7, 5) = Date
Sheet2.Cells(20, 1) = Sheet2.Cells(7, 5)
Sheet2.Cells(14, 4) = Sheet2.Cells(7, 5)
Sheet2.Cells(15, 4) = Sheet2.Cells(7, 5)
Sheet1.Activate
sFilePath = "C:\sjk\gongyongshuju.xlsx"
If Dir(sFilePath) = "" Then
MsgBox "请拷贝完整数据库后使用", 48, "许可科制作"
Else
Set oWB = Excel.Workbooks.Open(sFilePath)
With oWB
Set oWK = .Worksheets("Sheet1")
With oWK
'***********************************
Sheet2.Range("a2:z30") = .Range("a2:z30").Value
'***********************************
End With
.Save
.Close
End With
Set oWK = Nothing
Set oWB = Nothing
End If
End Sub
这个代码同样也是这样的问题,哭死。。。。。。。 |
|