请问如何自动另存Excel到特定目录？？？

同上

解决方案 »

  1.   

    引用Excel 10.0
    另存示例Private Sub Command3_Click()
        Dim xlapp As New Excel.Application
        Dim xlbook  As Excel.Workbook
        Dim xlsheet As Excel.Worksheet
        
        xlapp.Caption = "test"
        Set xlbook = xlapp.Workbooks.Add
        Set xlsheet = xlbook.Worksheets(1)
       
        xlbook.SaveAs "c:\aa.xls"
        xlapp.Visible = True
    End Sub
      

  2.   

    工程应用Microsoft Office 9.0
    Dim wbk As Object
    Set wbk = GetObject("d:\1.xls", "Excel.Sheet")DoEvents
    wbk.saveas "f:\test.xls"
    wbk.Close