VB6 到 Xls 没有 Excel

Question

我必须将数据从 VB6 应用程序中不同表单的多个 Flexgrid 传输到未安装 excel 的计算机中的 .xls 文件。这些 PC 中安装了 Openoffice、LibreOffice 等。

我开发了一个通用程序，它以 FlexGrid 作为参数并将其数据传输到 xls。此过程使用 DAO。由于各种 FlexGrid 中的各个列包含各种数据类型，因此在过程中我将字段定义为“dbText”类型。

t.Fields.Append t.CreateField(pFlxGrd.TextMatrix(0, j), dbText)

从任何网格传输到 xls 都可以正常工作。但是，一个问题是，对于每个包含数据的单元格，都会插入单引号以指示其文本类型的数据。

有什么方法可以删除或避免这些引号？由于数字数据将用于求和等，因此必须去掉这些引号。

Answer 1

您可以使用 Jet 引擎、ODBC 或 accdb 执行此操作。如果您使用的是 64 位系统，请确保从 windows\syswow64\cmd 中的 32 位 cmd 提示符运行它。我没有安装 VB6，所以这个解决方案只在 vbscript 中测试过，非常相似。您只需将类型添加到 dim 语句。

dim connExcel, connExcelStr, rsExcel, xlpath

' Get the parameter from the command line
xlpath = WScript.Arguments.Item(0)

' Create the connection
set connExcel = CreateObject("ADODB.Connection")

' Setup the connection string
' xlpath = "U:\JetExcel\data.xls"
connExcelStr = "Driver={Microsoft Excel Driver (*.xls)};"
connExcelStr = connExcelStr & "Dbq=" & xlpath & ";"
connExcelStr = connExcelStr & "FIRSTROWHASNAMES=1;"
connExcelStr = connExcelStr & "READONLY=FALSE;"
connExcelStr = connExcelStr & "CREATE_DB=""" & xlpath & """;"

' Create a workbook
WScript.echo connExcelStr
connExcel.Open connExcelStr

' Create a worksheet
sqlQuery = "create table [Sheet1] (ID Number, FirstName Text, LastName Text)"
WScript.echo sqlQuery
set rsExcel = connExcel.Execute(sqlQuery)

' Put data into the worksheet
sqlQuery = "insert into [Sheet1] (ID, FirstName, LastName) values"
sqlQuery = sqlQuery & "(1, 'Humpty', 'Dumpty')"
WScript.echo sqlQuery
set rsExcel = connExcel.Execute(sqlQuery)

' Close workbook
connExcel.Close
set connExcel = nothing

如果脚本名为xxx.vbs，则创建一个excel表

cscript xxx.vbs test.xls

Answer 2

有一种更快的解决方案可以从不久前在 vbForums 中显示的 flexgrid（不带引号）复制数据 - 这种方法的优点是它们的工作速度非常快，与通过细胞

Private Sub FlexToExcel()
Dim xlObject    As Excel.Application
Dim xlWB        As Excel.Workbook

Set xlObject = New Excel.Application 

'This Adds a new woorkbook, you could open the workbook from file also
Set xlWB = xlObject.Workbooks.Add 

Clipboard.Clear 'Clear the Clipboard
With MSFlexGrid1
    'Select Full Contents (You could also select partial content)
    .Col = 0               'From first column
    .Row = 0               'From first Row (header)
    .ColSel = .Cols - 1    'Select all columns
    .RowSel = .Rows - 1    'Select all rows
    Clipboard.SetText .Clip 'Send to Clipboard
End With

With xlObject.ActiveWorkbook.ActiveSheet
    .Range("A1").Select 'Select Cell A1 (will paste from here, to different cells)
    .Paste              'Paste clipboard contents
End With

' This makes Excel visible
xlObject.Visible = True
End Sub

查看THIS链接了解更多信息。