Question

这是我的第一个问题，所以你好每个人：）

我必须在Excel中编写vba代码（由按钮执行），它将从文本文件中向Access中的现有表添加记录。文本文件中的数据用分号分隔，第一行作为标题。该文件始终位于同一位置，只有数据在变化。我在2010版MS Office上工作。

我对VBA不太熟悉，所以我不知道如何开始 - 我能够在Excel中录制和播放宏。

提前感谢您的帮助！

Answer 1

希望这有帮助!!我没有Office 2010，但是这可能会让你对如何实现这一点有一个很好的想法，因为你不是VBA的新手...这是在MSO 2003中完成的

Sub test_csv_import()
    Dim acAppl As Access.Application

    Set acAppl = New Access.Application

    acApp.OpenCurrentDatabase "D:\yvxs\db1.mdb"

    acApp.DoCmd.TransferText acImportDelim, "MyImportSpec", "MyCSV", "D:\yvxs\mycsv.csv", True

    acAppl.CloseCurrentDatabase
    acAppl.Quit acQuitSaveNone

    Set acAppl = Nothing

End Sub

VBA - 使用Excel中的按钮将记录从文本文件添加到Access中的现有表

1 个答案: