Hi for all
This is very hard.
I want to insert into a text file create by Excel some information like name, address and so on.
When the file is opened, excel´s macro waits 'till I save the file.
Then, it copy each line of the text file and put in a excel´s row.
Please HELP MEEEEEEE!!

Hughes for all


Alex

If it is waiting for a 'save' to occur then the macro has that request coded into it...You will need to edit the macro. I am unclear as to what your final goal is...are you trying to write several records into an excel spreadsheet or take excel information and put it into a word (or other text) document.

John

If I understand this correctly, you want to read the text of a text file and place each line of it's text into a row in an Excel worksheet?

If so here's the code to accomplish this (just change the filename from boot.ini):

Private Sub CommandButton1_Click()
    Dim intLoopCounter As Integer
    Dim strTemp As String

    intLoopCounter = 1

    Open "C:\boot.ini" For Input As #1

        Do Until EOF(1)
            Line Input #1, strTemp

            Cells(intLoopCounter, 1) = strTemp
            intLoopCounter = intLoopCounter + 1
        Loop

    Close #1
End Sub

The first part of this (taking each line/row's text from Excel & placing this INTO a text file), can be accomplished by using this:

Private Sub CommandButton1_Click()
    Dim intLoopCounter As Integer
    Dim strTemp As String

    For intLoopCounter = 1 To UsedRange.Rows.Count
        strTemp = strTemp & Cells(intLoopCounter, 1) & vbCrLf
    Next intLoopCounter

    Open "C:\boot1.ini" For Output As #1
        Print #1, strTemp
    Close #1
End Sub