0

我有一个大约 1000 行和大约 15 列的 Excel 电子表格。我想做的是将这些数据导入表中，但有选择地。我想要从第 5 行（比如）开始的数据，直到从工作表末尾开始的大约 5 行。这是因为行数可能会有所不同，但我确信无论电子表格中的行数如何，我都不需要最后 4-5 行。此外，我只想插入几列，例如 Col1-Col5、Col7-Col9 和 Col12-Col15。我可以使用一个命令/命令序列来实现此目的吗？请尽快让我知道。非常感谢！

4

1 回答 1

0

下面的代码会根据您的 xls 中的内容创建一个带有 SQL 指令的文件。您只需要添加一个宏，粘贴它，然后更改一些内容（添加一段时间以使用列名必须与表字段名称匹配的标题行填充 ColFields 集合，声明不匹配的内容，为 fileName. ..)。然后执行宏，你会得到一个包含所有你想要的插入的文件，然后你只需要在你的基础上执行这个文件。

Sub Macro1()
    Dim NbOfLines = Worksheets(Sheet1).Range("A65536").End(xlUp).Row - 5 'Not the 5 last lines
    Dim ColFields As New Collection 'Do a while on the title line to fill the collection with wanted columns titles (do not add ignored columns)

    Dim StartSql As String
        StartSql = "INSERT INTO " + TableName + "("
        For Each loopField In ColFields
            StartSql = StartSql + loopField + ","
        Next
        StartSql = Left(StartSql, Len(StartSql) - 1)
        StartSql = StartSql + ") SELECT "


    Dim Value As String
    For i = 1 To NbOfLines
    Sql = ""
        j = 1
        For Each loopField In ColFields
            Value = Worksheets(SheetName).Cells(i, j).Value
            Sql = Sql + IIf(Value = "", "NULL", "'" + Replace(Value, "'", "''") + "'") + ","
            j = j + 1
        Next
        Sql = Left(Sql, Len(Sql) - 1)
        Sql = StartSql + Sql + vbCrLf
        Call WriteLine(Sql, FileName)
    Next


    End Sub


    Public Sub WriteLine(Ligne As String, FileName As String)

    Open FileName For Append As #1
        Print #1, Ligne
    Close
    End Sub

编辑：我知道这不是最好的方法（也不是最漂亮的方法），我把它给了你因为几周前我用它来将数据从一个数据库导入另一个（但我只需要做一次，而不是每天）。我也知道有一种方法可以使用 OpenRowSet 来做到这一点，你是对的，但我只是不知道如何（我会经常在这个页面上希望有人教我）。最后，我鼓励您阅读此页面：带有解决方案的博客页面 （您会在此处找到出色的过程“uftReadfileAsTable”：过程代码）祝您好运！

于 2011-03-08T11:46:31.000 回答