Advanced Search

Return to Snippet

Revision: 8972
at October 16, 2008 09:09 by goo
Initial Code 
Public Sub CreateExcelSheet()
Dim ExcelSheet As Object

On Error goto CreateExcelSheet_Err

Set ExcelSheet = CreateObject("Excel.Sheet") _
ExcelSheet.Application.Visible = True

ExcelSheet.Application.Cells(1, 1).Value = "This is Column A, _
row 1"ExcelSheet.SaveAs "C:\TEST.XLS"
ExcelSheet.Application.Quit

Set ExcelSheet = Nothing

CreateExcelSheet_Exit:
Exit Sub

CreateExcelSheet_Err:
Msgbox Err.Description,,"CreateExcelSheet"
Resume CreateExcelSheet_Exit

End Sub
Initial URL 
http://www.msaccesstips.com/2006/12/create-excel-word-file-from-access.shtml
Initial Description 

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
ACCESS Create Excel document

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
excel

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Visual Basic