Database Search

TechHome

• ADO Reading XML Data
• Creating User-Defined Types Using XML Document Object Model
• DBF to XML Converter
• Edit an Existing XML File
• Get First Column of Data from an Excel Spreadsheet
• MSXML Transformation via OLE
• Read XML Row by Row Based on Namespace String
• Replace Existing Element with New Data
• Soundex UDF
• Uses XML DOM and DHTML to Create a DSO-like editable HTML display
• XML Recordset and Excel Named Ranges
• XML Recordset Editing Script
• XML Recordset Primer
• XML Recordset to MDB
• XPATH and XML Parsing

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Get First Column of Data from an Excel Spreadsheet

;Define .XLS file 
xls = "C:\Temp\Data\test.xls"

objXL = ObjectOpen("Excel.Application")
objXL.Visible = @TRUE
objXL.DisplayAlerts = @FALSE

;Open XLS file
objWorkbooks = objXL.Workbooks
objWorkbooks.open(XLS)

;Get Active WorkBook Object
objActiveWorkbook = objXL.ActiveWorkbook
if objActiveWorkbook == 0
	Message("","No active workbook")
	ObjectClose(objXL)
	exit
endif
wrkbkname = objActiveWorkbook.Name
Message("Active WorkBook Name",wrkbkname)

;Get Active WorkSheet Object
objActiveSheet = objXL.ActiveSheet
if objActiveSheet == 0
	Message("","No active workSheet")
	ObjectClose(objActiveWorkbook)
	ObjectClose(objXL)
	exit
endif
wrkshtname = objActiveSheet.Name
Message("Active WorkSheet Name",wrkshtname)

objWorkSheet = objXL.Worksheets(wrkshtname)
objcols = objWorkSheet.Columns("A:A")
objcols.Select
objcols.Copy
data = ClipGet()
Message("Column A",data)


objWorkbooks.Close()
objXL.Quit()
ObjectClose(objcols)
ObjectClose(objWorkSheet)
ObjectClose(objActiveSheet)
ObjectClose(objActiveWorkbook)
ObjectClose(objWorkbooks)
ObjectClose(objXL)

Article ID:   W16151

File Created: 2004:03:30:15:43:00

Last Updated: 2004:03:30:15:43:00