在Access VBA中，您可以使用FileSystemObject对象来导出文件，并在每行的开头和结尾加上双引号。以下是一个示例代码：

首先，您需要在VBA编辑器中的“工具”菜单下选择“引用”并勾选“Microsoft Scripting Runtime”以引入FileSystemObject对象。

Sub ExportWithQuotes()
    Dim fs As Object
    Dim file As Object
    Dim filePath As String
    Dim dataRange As Range
    Dim data As Variant
    Dim i As Long, j As Long
    Dim line As String
    
    ' 设置文件路径
    filePath = "C:\YourFilePath\output.csv"
    
    ' 设置导出数据的范围
    Set dataRange = Sheet1.Range("A1:E10")
    
    ' 初始化FileSystemObject对象
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    ' 创建文件
    Set file = fs.CreateTextFile(filePath, True)
    
    ' 循环遍历数据范围
    data = dataRange.Value
    For i = LBound(data, 1) To UBound(data, 1)
        line = ""
        For j = LBound(data, 2) To UBound(data, 2)
            ' 在每个单元格的内容前后加上双引号
            line = line & """" & data(i, j) & """"
            
            ' 如果不是最后一列，则加上逗号分隔符
            If j < UBound(data, 2) Then
                line = line & ","
            End If
        Next j
        
        ' 写入文件
        file.WriteLine line
    Next i
    
    ' 关闭文件
    file.Close
    
    ' 释放对象
    Set file = Nothing
    Set fs = Nothing
    
    MsgBox "文件已导出。"
End Sub

在上面的示例代码中，我们首先创建了一个名为ExportWithQuotes的子过程。然后，我们声明并初始化了所需的变量，包括FileSystemObject对象（fs）和文件对象（file），以及文件路径（filePath）和数据范围（dataRange）。

在循环遍历数据范围时，我们使用line变量来构建每行的内容。在每个单元格的内容前后加上双引号，并在需要的情况下添加逗号作为分隔符。

最后，我们将每行的内容写入文件，并在完成后关闭文件。

请记得将代码中的文件路径（filePath）和数据范围（dataRange）替换为您实际使用的值。