Question

我正在excel中读取.csv数据库，因为我正在使用外部数据库。

我不想将任何内容复制到excel应用程序中，我想要从数据库中读取（也许可以更改某些值），或者添加到它。

我在userform中有一个文本框，它应该获取“column”A（参考编号）中最后一个条目的值，并向其添加一个（这是用于数据库中的下一个条目）。

我想使用excel VBA找到分号拆分CSV数据库中的最后一行。

这是我到目前为止所做的：

Dim FilePath As String

FilePath = "L:\database.csv"
Open FilePath For Input As #1
    Do While Not EOF(1)
        linenumber = linenumber + 1
        Line Input #1, Line
        arrayOfElements = Split(Line, ";")

        elementnumber = 0

        testValue = arrayOfElements(0)

        If testValue = "L51599" Then

           refnr.Text = testValue
        Else
            'do nothing
        End If

    Loop
Close #1

任何提示？

由于

Answer 1

这里有5种不同的方式：http://www.thespreadsheetguru.com/blog/2014/7/7/5-different-ways-to-find-the-last-row-or-last-column-using-vba。

请注意 CSV文件不是Excel文件且不能包含自定义VBA功能（宏）。您必须在全局模板中创建“findLastRow”函数，并将其分配给其中一个工具栏/条带上的自定义按钮。这在此解释：https://msdn.microsoft.com/en-us/library/office/ee767705(v=office.14).aspx。

祝你好运！

从Excel VBA中查找CSV数据库的最后一行

1 个答案: