Importing .csv Files Into Excel

[smugcool]

hi all,

kindly suggest me how to import .csv files into excel by using VB 6.0 SOFTWARE.Kindly help me asap.

Regards
Anup

[smugcool]

hi all,

kindly suggest me how to import .csv files into excel by using VB 6.0 SOFTWARE.Kindly help me asap.

Regards
Anup

Hi all,

Plzzzzzzzzzzzzz z help its very important and urgent..I tried the same by runing a macro and it had worked....But i cant figure out the same in vb6.0

[SammyB]

hi all,

kindly suggest me how to import .csv files into excel by using VB 6.0 SOFTWARE.Kindly help me asap.

Regards
Anup

I don't have VB6 here, so this is pretty much from memory.
First set a reference to Microsoft Excel Object Library

Option Explicit
Sub BtnExcel_Click()
	Dim xlApp As New Excel.Application
	Dim xlBook As Excel.Workbook
	Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\Sam\My Documents\IncomeSurvey.csv")
	xlApp.Visible = True
End Sub

HTH --Sam

[smugcool]

I don't have VB6 here, so this is pretty much from memory.
First set a reference to Microsoft Excel Object Library

Option Explicit
Sub BtnExcel_Click()
	Dim xlApp As New Excel.Application
	Dim xlBook As Excel.Workbook
	Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\Sam\My Documents\IncomeSurvey.csv")
	xlApp.Visible = True
End Sub

HTH --Sam

Hi Sam.,

Above thing works when i do it in excel.....But it doesnot work when i do same thing in Vb6.

[SammyB]

Hi Sam.,

Above thing works when i do it in excel.....But it doesnot work when i do same thing in Vb6.

What fails? Did you add a reference to Microsoft Excel Objects?

[smugcool]

What fails? Did you add a reference to Microsoft Excel Objects?

ya sam its working now.....I didnot add a reference in earlier occasion....Tha nx for your support.
But there is one more problem now.When I ran this query it gives me entire detials in a single sales...

I want to imported these data by delimiting semilcon.So, that i can be able to see the contents in various columns.

Plz help

[SammyB]

I'm not sure I followed that, but if you mean that your file is semicolon deliminated instead of comma deliminated, then you just need to parse the data after opening:

Option Explicit
Sub BtnExcel_Click()
	Dim xlApp As New Excel.Application
	Dim xlBook As Excel.Workbook
	Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\Sam\My Documents\IncomeSurvey.csv")
	xlApp.Visible = True
	xlBook.ActiveSheet.Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
		TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
		Semicolon:=True, Comma:=False, Space:=False, Other:=False
End Sub

[xavierrangel]

I'm not sure I followed that, but if you mean that your file is semicolon deliminated instead of comma deliminated, then you just need to parse the data after opening:

Option Explicit
Sub BtnExcel_Click()
	Dim xlApp As New Excel.Application
	Dim xlBook As Excel.Workbook
	Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\Sam\My Documents\IncomeSurvey.csv")
	xlApp.Visible = True
	xlBook.ActiveSheet.Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
		TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
		Semicolon:=True, Comma:=False, Space:=False, Other:=False
End Sub

hey there! Could you please help me out... I'm trying to open a database of access to an excel document through visual basic 6.0 any ideas? thanks a lot

[atharva]

Hi All,

I want to import A tsv file to a existing excel sheet instead of a new sheet. Kindly Help.

Thanks