删除由VBA / OLE生成的CSV行中的最后一个逗号

Question

我正在使用VBA来控制OLE自动化的数据库前端。数据库查询的输出以表格格式提供，我可以使用应用程序的OLE方法来读取单个单元格。我的目标是自动化将此输出转换为CSV的过程。我的方法是循环遍历每个单元格并使用VBA的WRITE函数输出到CSV，但是这种方法在每行上留下了额外的不需要的逗号。请帮我删除这个额外的逗号或写下没有它的行开头。提前感谢您的时间。

第一个循环写入列标题，第二个循环写入表的数据。两个循环都会产生最终不需要的逗号。

'4. Write headers and table content to CSV File
     Open pathOutput For Output As #1
         For h = 1 To results.columnCount
             Write #1, Cells(1, h);
         Next h
         Write #1,

         For i = 1 To results.rowCount
             For j = 1 To (results.columncount)
                 Write #1, results.cell(i, j);
             Next j
             Write #1,
         Next i

     Close #1