Excel app.Workbooks.OpenText - interface?

  1. last week

    Friends: need to access Excel VBA command app.Workbooks.OpenText from Xojo. It is not in Dakin's "Program Excel 2016
    with Xojo in Windows".
    Have tried this. It compiles, but does not work:
    xlapp.Workbooks.OpenText (filestring, xlWindows, 1, xlDelimited, xlDoublequote, False, True, False, False, False, False, vbTab, Array(1, 1), False, ".", ",")

    Hi Mike,

    I was able to get it working on my computer with most of the commands that were added with a text file called ExampleText.txt. Here are the contents of the text file:

    This
    is 
    new 
    text stuff
    in a 
    file

    Maybe try the following code to start?

    Dim excel as new ExcelApplication
    excel.Visible = True
    
    excel.Workbooks.OpenText("C:\Users\Owner\Desktop\New\ExcelOpenText\ExampleText.txt", Office.xlWindows, 1, Office.xlDelimited, Office.xlTextQualifierDoubleQuote, False, True, False, False, False, False, chr(9)))
  2. Eugene D

    Sep 9 Pre-Release Testers, Xojo Pro Answer Canada scispec.ca

    Hi Mike,

    I was able to get it working on my computer with most of the commands that were added with a text file called ExampleText.txt. Here are the contents of the text file:

    This
    is 
    new 
    text stuff
    in a 
    file

    Maybe try the following code to start?

    Dim excel as new ExcelApplication
    excel.Visible = True
    
    excel.Workbooks.OpenText("C:\Users\Owner\Desktop\New\ExcelOpenText\ExampleText.txt", Office.xlWindows, 1, Office.xlDelimited, Office.xlTextQualifierDoubleQuote, False, True, False, False, False, False, chr(9)))
  3. Edited last week

    Yes, it works !!! Thanks, Eugene :-)

    Your book has helped me greatly converting VBA from VB6 to Xojo.

    Now, if only the Xojo debugger would stop crashing or "Cannot connect to the debugger ....", the debugging would be much faster ;-(

or Sign Up to reply!