如何将电子表格中单元格的内容输出到txt文件？

Question

I have a spreadsheet looking like this with three columns A, B and C:

1   41309.5 の
2   23509.54    に
3   22216.8 は

What I need to do is to create a text file where each line of the file looks like this:

 Insert into freqleeds (id, freq, text) values ( 1, 41309.5, 'の')
 ..

Can someone give me some idea as to how I can do this?

Answer 1

Without using VBA or even complex functions, you can create a support column at column D, with the following formula that will Concatenate() your template with the variables:

="Insert into freqleeds (id, freq, text) values (" & A1 & "," & B1 & "," & C1 & ")"

After pasting this formula in your D1 cell, you can drag it down, to create the specific db statements for each row.

After that, you should select the whole D column and copy it:

Then you should paste the content into a notepad.

Done.

Ps: If you want to automate this job, you can create a macro to apply this concatenate function to each line with content in your spreadsheet, filter them according to your needs and export this specific column to a txt file .

Answer 2

Try:

Sub test()

 Dim Ws As Worksheet, i As Long, Fr As Long, Lr As Long, St0 As String, St As String

 Set Ws = ActiveSheet
 St0 = "Insert into freqleeds (id, freq, text) values ( "

 Fr = 1 'First row
 Lr = Ws.Cells(Ws.Rows.Count, "A").End(xlUp).Row 

 For i = Fr To Lr
  St = St & St0 & Ws.Cells(i, 1) & ", " & Ws.Cells(i, 2) & ", '" & Ws.Cells(i, 3) & "')" & vbNewLine
 Next

 With CreateObject("Scripting.FileSystemObject")
    .CreateTextFile("d:\00000.txt", True, True).Write St ' change the file name
 End With

End Sub