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,

Plzzzzzzzzzzzzzz 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....Thanx 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