将报表导出到Excel时反转列和行

Question

将访问表单导出到Excel文件。

我的代码基本上有效，但是输入一行中的所有数据，而不是一列。这是一个简单的解决方法吗？

Set fd = Application.FileDialog(msoFileDialogSaveAs)

If fd.Show Then
    Me.Filter = "[ID] = " & Me!ID
    Me.FilterOn = True
    DoCmd.OutputTo acOutputForm, "Checkride", "(*.xls)", fd.SelectedItems(1), True
    Me.FilterOn = False
End If

根据相同的代码分开问题：如果我只输入文件名，则不会将文件另存为.xls文件。我可以输入filename.xls，它可以工作，但这不是最佳的。在DoCmd线上有什么可以改变的吗？