access中,如何用VBA编写将A文本夹里面的文本数据导入至数据库C后,再将A文本夹里面的文本全部删除
时间: 2024-03-11 12:48:44 浏览: 27
可以使用以下VBA代码来实现将A文本夹里的文本数据导入到数据库C中,然后删除A文本夹中的所有文本:
```vb
Sub ImportTextFiles()
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim strSQL As String
'设置文件夹路径
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("A:\")
'遍历文件夹中的所有文本文件
For Each objFile In objFolder.Files
If objFSO.GetExtensionName(objFile.Path) = "txt" Then
'打开文本文件并读取内容
Open objFile.Path For Input As #1
strText = Input$(LOF(1), 1)
Close #1
'将文本数据插入到数据库C中
strSQL = "INSERT INTO Table1 (TextData) VALUES ('" & strText & "')"
DoCmd.RunSQL strSQL
'删除文本文件
Kill objFile.Path
End If
Next objFile
End Sub
```
其中,需要根据实际情况修改文件夹路径、数据库表名和字段名等信息。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)