Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Private Sub Create_Workbook() Dim xlApp As New EXCEL.Application Dim xlWorkBook As EXCEL.Workbook = xlApp.Workbooks.Add Dim xlWorkSheet As EXCEL.Worksheet = CType(xlWorkBook.Worksheets.Add, EXCEL.Worksheet) Dim strFileName As String = "" Dim misValue As Object = System.Reflection.Missing.Value xlWorkSheet.Name = Me.txt_Slip_Number.Text xlWorkSheet.Cells(1, 1) = Me.DatePick_Slip_Date.Value.ToString xlWorkSheet.Cells(1, 2) = Me.txt_Location.Text xlWorkSheet.Cells(1, 3) = "Job No:" xlWorkSheet.Cells(1, 4) = Me.txt_Job_Number.Text xlWorkSheet.Cells(1, 5) = "Engineer: " xlWorkSheet.Cells(1, 6) = Me.txt_Engineer.Text xlWorkSheet.Cells(2, 1) = "Contractor: " xlWorkSheet.Cells(2, 2) = Me.txt_contractor.Text xlWorkSheet.Cells(2, 3) = "SWO#: " xlWorkSheet.Cells(2, 4) = Me.txt_SWO_ID.Text xlApp.ActiveWorkbook.SaveAs("C:\test.xlsx") xlApp.ActiveWorkbook.Close() xlApp.Quit() releaseObject(xlApp) releaseObject(xlWorkBook) releaseObject(xlWorkSheet) MsgBox("Excel file created , you can find the file c:\") End Sub
|automate Outlook 2013 with VB.NET OR VBSCRIPT||8||49|
|Parsing data in an Import file into a summary tab||6||55|
|An unhandled exception of type 'System.FormatException' occurred in mscorlib.dll||5||30|
|Calculating a BCC (Xor) for a message||13||24|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
24 Experts available now in Live!