Question

我是VBA的新手，我正在尝试自动化将特定文件夹中的4 .csv文件导入SQL数据库的过程。我有一个代码，其中我有4个命令按钮，每4个，我选择文件，然后将它们导入SQL。但是，我想知道是否有一种方法可以让我只有一个命令按钮，从该特定文件夹中选择所有.csv文件，然后将它们导入SQL。假设文件夹名称是以下路径中的数据库：Y：\ Data \ Database

我有以下导入按钮代码，用于将本地路径转换为SQL服务器路径，以及所有其他类型的函数，以将数据导入SQL Server。（fName1 ... fName4是用户当前正在拾取的4个文件路径的TextBox值）

Private Sub ImportButton_Click()
Dim fName1 As String
Dim fName2 As String
Dim fName3 As String
Dim fName4 As String
Dim perc As Single

Dim index As Integer
Dim subStr As String
Dim sqlStr As String
sqlStr = "E:\Analytics\"

'Convert the local path to SQL server path
fName1 = TextBox1.Value
index = InStr(1, fName1, "\")
subStr = Left(fName1, index)
fName1 = Replace(fName1, subStr, sqlStr, , 1)

fName2 = TextBox2.Value
index = InStr(1, fName2, "\")
subStr = Left(fName2, index)
fName2 = Replace(fName2, subStr, sqlStr, , 1)

fName3 = TextBox3.Value
index = InStr(1, fName3, "\")
subStr = Left(fName3, index)
fName3 = Replace(fName3, subStr, sqlStr, , 1)

fName4 = TextBox4.Value
index = InStr(1, fName4, "\")
subStr = Left(fName4, index)
fName4 = Replace(fName4, subStr, sqlStr, , 1)

'Modify the text captions for test purpose
TextBox1.Value = fName1
TextBox2.Value = fName2
TextBox3.Value = fName3
TextBox4.Value = fName4

Dim cnPubs As ADODB.Connection
Dim cmd As ADODB.Command

' Create a connection object.
Set cnPubs = New ADODB.Connection

' Provide the connection string.
Dim strConn As String

'Use the SQL Server OLE DB Provider.
strConn = "PROVIDER=SQLOLEDB;"

'Connect to the Pubs database on server hcdcd-actstat01 .
strConn = strConn & "DATA SOURCE=hcdcd-actstat01;INITIAL CATALOG=Analytics;"

'Use an integrated login.
strConn = strConn & " INTEGRATED SECURITY=sspi;"

'Now open the connection.
cnPubs.Open strConn


Set cmd = New ADODB.Command
cmd.ActiveConnection = cnPubs
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "dbo.Proc_CapitalAllocation_Step1"
cmd.CommandTimeout = 1200 'Seconds

''cmd.Parameters.Append cmd.CreateParameter_(fName1, fName2, fName3, fName4)
Call cmd.Execute(Parameters:=Array(fName1, fName2, fName3, fName4), Options:=adCmdStoredProc)

End Sub

任何帮助将不胜感激。非常感谢你。

Answer 1

这将帮助您遍历文件夹中的.csv文件。

Option Explicit

Sub LoopThroughFiles()

    Dim strFile As String, strPath As String

    strPath = "E:\Analytics\"
    strFile = Dir(strPath & "*.csv")

    While strFile <> ""

        '-> code upload the file to SQL Database

        strFile = Dir

    Wend


End Sub

如果您需要更多优化，例如您只需要文件夹中的某些.csv文件，请在While strFile <> ""之后添加一个语句，以清除您不想要的任何文件。类似的东西：

If InStr(1, strFile, "myName") > 0 Then
   '-> code to upload the file to SQL database
End If

Answer 2

我使用

SearchFile = Dir(SearchFolder & "*.csv")

第一次通过代码成功选择.csv文件，但是当我使用

遍历文件夹中的所有文件时

SearchFile = Dir

在每个循环中，它选择其他文件类型，我还没有找到一种方法来强制该行代码只选择.csv。所以我的修复是在检查后立即添加IF语句

     SearchFile = Dir         
CheckFile:
     If Right(SearchFile, 3) <> "csv" Then
         SearchFile = Dir
         GoTo CheckFile
     End If

这样，如果文件夹中有其他文件类型，它就会跳过它们。我使用该格式是因为我的sub中的其他代码，但它可以重写为

CheckFile:
     SearchFile = Dir
     If Right(SearchFile, 3) <> "csv" Then
         GoTo CheckFile
     End If

如何选择文件夹中的所有.csv文件，然后通过VBA编码导入它们

2 个答案: