VBA Excel - 将列名保存到MS Access的电子表格中

我在Visual Studio Express中使用VBA。我想要做的是给出我通过VB，列名，即我在我的数据库中的名称导出MS Access DB创建的excel spreedsheet的第一行。VBA Excel - 将列名保存到MS Access的电子表格中

有9列被跳过的10列，我也将spreedsheet分开以允许第一行有标题，我将如何填充我的spreedsheet的第一行与我的数据库的列名称？此外，如果直接通过代码分配名称，而不是从数据库传递列标题，那也没关系。

我的代码：

Public Sub ExportEx() 
    Dim strSQL_Query As String 
    Dim oCN As ADODB.Connection 
    Dim oCMD As ADODB.Command 
    Dim oRecords As ADODB.Recordset 
    Dim strDBPath As String 
    Dim varValues As Object 
    Dim lngRows As Long 
    Dim lngCols As Long 
    Dim strCN As String 



    strDBPath = Application.StartupPath & "\SCO_Leaderboard.accdb" 

    strCN = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDBPath & ";" & _ 
        "Persist Security Info=False;" 


    strSQL_Query = "Select top 10 Rank, Username, Time_Played, Lv, EXP, Floor, Col, Logins, Status FROM tblUsers ORDER BY Rank ASC" 

    Dim oExcel As Object 
    Dim oBook As Object 
    Dim oSheet As Object 
    oExcel = CreateObject("Excel.Application") 
    oBook = oExcel.Workbooks.Add 
    oSheet = oBook.Worksheets(1) 

    oCN = New ADODB.Connection 
    oCN.ConnectionString = strCN 
    oCN.Open() 


    oCMD = New ADODB.Command 
    oCMD.ActiveConnection = oCN 
    oCMD.CommandText = strSQL_Query 
    oRecords = oCMD.Execute 

    varValues = oRecords.GetRows 


    lngCols = UBound(varValues, 2) 
    lngRows = UBound(varValues, 1) 
    oSheet.Range("A2", oSheet.Range("A2").Offset(lngRows, lngCols)) = varValues 


    oBook.SaveAs(Application.StartupPath & "\Top_10_All_Time.xls") 
    oExcel.Quit() 

    MsgBox("An Excel spreadsheet has been created under:" & vbNewLine & vbNewLine & Application.StartupPath & "\Top_10_All_Time.xls") 
    '' Clean up... 

    oCMD = Nothing 
    oCN.Close() 
    oCN = Nothing

在另一方面会怎么我的空间在Excel中的字段出来，让所有的数据拟合在列？

感谢您的帮助，

安迪

来源

2015-04-04 Andy

在VBA中，有两种方法来访问表/查询数据导出到Excel电子表格：

1）TransferSpreadsheet方法

该命令将导出所有字段和记录。所以，你的VBA字符串保存为一个存储的查询对象，并引用它在下面的命令：

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ 
       "yourtableorqueryname", "fullpathtoExcelFile", True

2）CopyFromRecordset方法

该命令将只导出记录。但是，您可以使用记录集的Fields属性填写第一行。请注意下面的代码假定您使用ADODB连接创建名为rst的ADO记录集。

Dim rst As ADODB.Recordset 

Set rst = New ADODB.Recordset 

rst = "Select top 10 Rank, Username, Time_Played, Lv, EXP, Floor, Col, Logins, Status" _ 
    & " FROM tblUsers ORDER BY Rank ASC", oCN 

oSheet.Range("A1").Select 
For Each fld In rst.Fields 
    oExcel.ActiveCell = fld.Name 
    oExcel.ActiveCell.Offset(0, 1).Select 
Next 
'REMOVE BELOW IF YOU WANT ONLY COLUMN HEADERS NOT DATA 
oSheet.Range("A2").CopyFromRecordset rst 
'TO AUTO FIT (SPACE OUT) COLUMNS 
osheet.Range("A1:I" & rst.RecordCount + 1).Columns.AutoFit

来源

2015-04-05 18:07:15 Parfait

这个工作在Access中，我不知道，如果它在你的情况：

Select top 10 Rank As Header1, Username As Header2, Time_Played As Header3 ...

来源

2015-04-04 13:05:55 Edgar

你将不得不从检索字段集合oRecords的模式：

或者只是从strSQL解析字段名称.. 。

或 - 很容易，因为你定义的字段名，并建立从字段名的SQL - 把这些数组中，然后从该阵列构建范围的第一行。

来源

2015-04-04 13:10:49 Gustav

是否有直接通过代码设置字段中数据的方法，即单元格A1 =“Rank”等？ – Andy 2015-04-04 14:13:55

是...使用第1行的范围。 – Gustav 2015-04-04 15:21:38

VBA Excel - 将列名保存到MS Access的电子表格中

回答

相关问题