Excel Cells to List

[rnordquest]

I want to take 100-200 part numbers from a range of cells and put them in a MS Access query. I need to get them in the form: IN ('PN(1)','PN(2)','PN(3)'...)

How do I write out this long array in a single cell or MS Word txt file? Better yet, how do I use VB to run the query?

Roger

 

[joerd]

What do you think of:

Sub test2()
fname = "c:\data\test.txt"
Open fname For Output As #1
    For i = 1 To 10
        Print #1, "'"; Cells(i, 1).Value; "',";
    Next i
Close #1
End Sub

Cheers,
Joerd

Please see FAQ731-376 for tips on how to make the best use of Eng-Tips.