Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
adding columns to an excel sheet from vb6 1
- Thread starter pedro404
- Start date
-
1
- #2
You need to add Microsoft Excel x.x Objects to the project references.
Then it depends a little on how many sheets, which one etc. but basically
Dim xApp As New Excel.Application
xApp.Workbooks.Open ("C:\filename"
xApp.ActiveSheet.Cells(1, 5).Value = "E1"
xApp.ActiveSheet.Cells(1, 6).Value = "F1"
xApp.ActiveSheet.Cells(1, 7).Value = "G1"
xApp.ActiveSheet.Cells(1, 8).Value = "H1"
xApp.ActiveWorkbook.Save
xApp.ActiveWorkbook.Close
Set xApp = Nothing
Would set the first row E-H to those values. The cell coordinates could be variables in a loop etc.
Then it depends a little on how many sheets, which one etc. but basically
Dim xApp As New Excel.Application
xApp.Workbooks.Open ("C:\filename"
xApp.ActiveSheet.Cells(1, 5).Value = "E1"
xApp.ActiveSheet.Cells(1, 6).Value = "F1"
xApp.ActiveSheet.Cells(1, 7).Value = "G1"
xApp.ActiveSheet.Cells(1, 8).Value = "H1"
xApp.ActiveWorkbook.Save
xApp.ActiveWorkbook.Close
Set xApp = Nothing
Would set the first row E-H to those values. The cell coordinates could be variables in a loop etc.
- Thread starter
- #3
- Status
Similar threads
- Locked
- Question
