关于导出EXCEL表格问题

chinasa　发表于：2012-09-10 15:04:29 　

复制

当表或查询中某个字段中字符数量超过255个时，导出EXCEL表格后，部分字符会丢失。

不知道有什么办法吗？

Top

chinasa 发表于：2012-09-10 15:30:02

我使用的是“excel分析”

Top

chinasa 发表于：2012-09-10 16:22:27

现在发现使用TransferSpreadsheet能够全部导出，而使用OUTPUT或者EXCEL分析则会丢失数据。不知道为什么？

Top

chinasa 发表于：2012-09-11 09:22:43

等了一晚上还是没有高手帮助解决啊。尽管使用TRANSFERSPREADSHEET能够导出，但是由于导出路径必须写死，不是很方便，希望能象OUTPUT这样能选择路径，或者想EXCEL分析一样能直接打开。

Top

叶海峰发表于：2012-09-11 10:44:58

TRANSFERSPREADSHEET的FileName参数可以是一个变量,也就是说可以设置导出的文件名包括路径,何来写死呢?

Top

chinasa 发表于：2012-09-11 14:30:40

叶版，我说的写死是相对于OUTPUT来说的，OUTPUT可以跳出提示框，由用户选择路径，而TRANSFERSPREADSHEET需要提前设置路径，哪怕是变量也需要在窗体或表等地方预先写好路径及文件名，不能由用户临时选择。

Top

叶海峰发表于：2012-09-11 15:11:58

Dim myfiledialog As FileDialog
Set myfiledialog = Application.FileDialog(msoFileDialogFilePicker)

    With myfiledialog
        .Filters.Add "Txt", "*.txt"
        .AllowMultiSelect = False
        .Show
    End With

DoCmd.TransferSpreadsheet , acSpreadsheetTypeExcel8, "表名", myfiledialog.SelectedItems(1)

Top

chinasa 发表于：2012-09-12 08:21:33

多谢叶版，看起来马上就要成功了，但在最后保存时有些问题，点保存后没有任何反映，请帮助看看。

点击下载此附件

Top

叶海峰发表于：2012-09-12 08:43:44

Private Sub Command0_Click()
Dim myfiledialog As FileDialog

Set myfiledialog = Application.FileDialog(msoFileDialogSaveAs)

    With myfiledialog
        .InitialFileName = "tb1.xls"
        .Show
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "tb1", .SelectedItems(1)
    End With

End Sub

Top

chinasa 发表于：2012-09-12 11:53:25

万分感谢您的帮助！

Top

总记录：9篇页次：1/1 9 1 :

Access交流中心

关于导出EXCEL表格问题