VB EXCEL 2007 TO 2003

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)


Public Sub translateFormat(strS1 As String,strD1 As String,strPath As String)
'
    Dim xlApp As New Excel.Application
    Dim xlBook As New Excel.Workbook
    
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    Set xlBook = xlApp.Workbooks.Open(strPath & strS1)

    xlApp.DefaultSaveFormat = xlExcel8
    xlApp.DisplayAlerts = False
    xlBook.CheckCompatibility = False
    xlBook.SaveAs strPath & strD1,FileFormat:=xlExcel8
    
    xlBook.Close
    Set xlBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing

    Kill strPath + strS1
    Sleep 200

End Sub

THAT ALL

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!