殷楷博
Sub ExportExcelCSV()
Dim strOut As String
Dim tbl As AccessObject
Dim f As Boolean
With Application.FileDialog(4) ' msoFileDialogFolderPicker
.Title = "Please select the target folder"
If .Show Then
strOut = .SelectedItems(1)
If Not Right(strOut, 1) = "\" Then
strOut = strOut & "\"
End If
Else
MsgBox "You didn't select a target folder.", vbExclamation
Exit Sub
End If
End With
f = (MsgBox("Do you want to export all tables to Excel (No = CSV)?", _
vbQuestion + vbYesNo) = vbYes)
For Each tbl In CurrentData.AllTables
If Not tbl.Name Like "MSys*" And Not tbl.Name Like "~" Then
If f Then
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _
tbl.Name, strOut & tbl.Name & ".xlsx", True
Else
DoCmd.TransferText acExportDelim, , _
tbl.Name, strOut & tbl.Name & ".csv", True
End If
End If
Next tbl
End Sub
用户登录
还没有账号?立即注册
用户注册
投稿取消
| 文章分类: |
|
还能输入300字
上传中....
