Advertisement

04.10.2008 at 10:47AM PDT, ID: 23312687 | Points: 500
[x]
Attachment Details

Import specific Excel worksheet  to  SQL table

Asked by mercybthomas74 in MS SQL DTS

Tags: SQL 2000

I havethe code to pull the last modified Excel file from a given path....
See below the code...
But i need to specify the worksheet name , and pull data only from that specified worksheet
Wher shouls i add the row source in the below scriptStart Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

Function Main()
Dim objFSO, objFile, objFolder
dim strPath
dim dteTemp,strTemp
dim oPackage
dim oConn
 
 
strPath="C:\" 
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPath)
 
dteTemp=cdate("1/31/1900")
For Each objFile in objFolder.Files
	
	if cdate(objFile.DateLastModified) > dteTemp then
		dteTemp=objFile.DateLastModified
		strTemp=objFile.Name
	end if
Next
'msgbox strtemp & dtetemp
 
	set oPackage = DTSGlobalVariables.parent
	set oConn = oPackage.connections("Excel")
 
	oConn.datasource = strPath & strTemp
	oPackage.steps("DTSStep_DTSDataPumpTask_1").execute
 
set oPackage = nothing
set oConn = nothing
Set objFolder = Nothing
Set objFSO = Nothing
 
	Main = DTSTaskExecResult_Success
End Function
[+][-]04.10.2008 at 11:30AM PDT, ID: 21327883

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]04.11.2008 at 08:14AM PDT, ID: 21335026

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]04.13.2008 at 11:31PM PDT, ID: 21347909

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 7-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]04.14.2008 at 07:10AM PDT, ID: 21350137

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]07.17.2008 at 10:08AM PDT, ID: 22027563

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
 
Loading Advertisement...
20080716-EE-VQP-32 / EE_QW_2_20070628