Re: Importing Data from Excel (XLS) file to HF

edmundo — Wed, 02 Oct 2013 21:51:12 +0200

gracias por tu aporte me dio mucha ayuda

Re: Importing Data from Excel (XLS) file to HF

Allard — Wed, 09 Feb 2011 16:14:48 +0100

Hi

Does excel need to be installed on the users computer to use this method

Thanks for the code!!

Allard

Re: Importing Data from Excel (XLS) file to HF

Grand77 — Wed, 25 Nov 2009 00:37:00 +0100

Thanx a lot

Importing Data from Excel (XLS) file to HF

DarrenF — Thu, 26 Feb 2009 17:41:31 +0100

All,

An example of importing data from an Excel file to a HF file - this example imports the ISO Countries data (Countries data sourced from the ISO standards web site).

This was originally posted on the main WD forum, but thought it may be useful here as well:

IDXLSFile is int
iNo_rows is int
glocaliIResult is int

// Open the Currencies excel file
IDXLSFile = xlsOpen("c:\My Projects\InterPoint\Extract Files for Import\currencies.xls")

// If the Excel file was found, then carry on processing
// ELSE
// Report an error
IF IDXLSFile <> -1 THEN
	
	// Get number of rows in the Excel file
	iNo_rows = xlsNbRow(IDXLSFile)
	
	// Test for existence of Country table
	IF NOT HOpen(Country,hOReadWrite) THEN
		Error("Unable to locate the required Country database table!")
		RETURN
	END
		
	// HCreation will delete and re-create these tables and also reset all the rec no's and auto IDs
	HCreation(Country)
		
	// Process each row of the Excel file
	// Start at row 2 to ignore the Excel title row...
	FOR glocaliNV_Row = 2 TO iNo_rows
		
		// Country Details
		Country.cCountryCode = xlsData(IDXLSFile,glocaliNV_Row,1)
		Country.cCountryName = xlsData(IDXLSFile,glocaliNV_Row,5)
		Country.cCurrencyCode = xlsData(IDXLSFile,glocaliNV_Row,2)
		Country.nCurrencyCode = xlsData(IDXLSFile,glocaliNV_Row,3)
		Country.cCurrencyDesc = xlsData(IDXLSFile,glocaliNV_Row,4)
		Country.bActiveCountry = xlsData(IDXLSFile,glocaliNV_Row,6)
		Country.bActiveCurrency = xlsData(IDXLSFile,glocaliNV_Row,7)
		Country.cCurrencySymbol = ""
		Country.dtCreated = DateSys + TimeSys
		Country.cNotes = "Auto loaded from ISO import file on " + DateToString(DateSys())
		
		// Write the data to the database
		HAdd(Country)
						
	END
	
	// Close XLS file
	xlsClose(IDXLSFile)
		
ELSE
	Info(xlsMsgError(IDXLSFile))	

END