Import Excel file - last modified date from specific tab to SQL server

I have the ActiveX script for importing data from excel to SQL with last date modified....
How can i specify the a specific tab form Excel sheet

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

Open in new window

mercybthomas74Asked:
Who is Participating?
 
Anthony PerkinsConnect With a Mentor Commented:
>>How can i specify the a specific tab form Excel sheet<<
You need to set the SourceObjectName property (for the Data Transformation Task) to the sheet name as in:
oPackage.Task("DTSStep_DTSDataPumpTask_1").SourceObjectName = "Sheet1$"
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.