Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

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

Posted on 2009-05-06
1
Medium Priority
?
260 Views
Last Modified: 2013-11-30
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

0
Comment
Question by:mercybthomas74
1 Comment
 
LVL 75

Accepted Solution

by:
Anthony Perkins earned 2000 total points
ID: 24315387
>>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

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Why is this different from all of the other step by step guides?  Because I make a living as a DBA and not as a writer and I lived through this experience. Defining the name: When I talk to people they say different names on this subject stuff l…
Recently we ran in to an issue while running some SQL jobs where we were trying to process the cubes.  We got an error saying failure stating 'NT SERVICE\SQLSERVERAGENT does not have access to Analysis Services. So this is a way to automate that wit…
Via a live example, show how to extract information from SQL Server on Database, Connection and Server properties
Via a live example, show how to set up a backup for SQL Server using a Maintenance Plan and how to schedule the job into SQL Server Agent.
Suggested Courses

572 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question