VBAのエクスポートは、サブフォームをエクスポート]ボタンをしようとして

Question

イムをサブフォームが、すべて私はほとんどサブフォームオブジェクトを認識しているように見えるカントそれを様々なエラーを取得しています。私は私が考える午前最も近いは次のとおりです：

DoCmd.OutputTo acOutputForm, Me.Form.<Subform_name>.Name, acFormatXLSX, savefileas, True 

subform_nameがメインフォーム Subform_formソース形式でオブジェクト名です

サブフォームは、別のクエリから付属していませんが、レコードセットがあります親フォームのVBAから設定

このVBAでエラー2102である=「フォーム名は、スペルミス、または存在しない形を指します。」

savefileas =

Public Function savefileas() As String 
Dim fd As FileDialog, filename As String 

On Error GoTo ErrorHandler 

Set fd = Application.FileDialog(msoFileDialogSaveAs) 

If fd.Show = True Then 
    If fd.SelectedItems(1) <> vbNullString Then 
     filename = fd.SelectedItems(1) 
    End If 
Else 
    'Stop Code Execution for Null File String 
    End 
End If 
savefileas = filename & ".xlsx" 

'Cleanup 
Set fd = Nothing 
Exit Function 

ErrorHandler: 
Set fd = Nothing 
MsgBox "Error " & Err & ": " & Error(Err) 
End Function 

Answer 1

私は私が望む結果を得る最も効率的な方法が、イムではないかもしれないが、私はアンドレから微調整するために今感謝をしたいどのようにこの作業を持っています。

同様のソリューションのために、このに来るかもしれない他の人を助けるために。私が望んでいた私の理想的な形式をしたCSVファイルへのエクスポート

イム。
[エクスポート]ボタン：その輸出のためにそのサブフォームのレコードセットIEを設定するたびに使用されたクエリを設定するように、オープン

Private Sub Form_Open(Cancel As Integer) 
Dim strSQL As String 
Dim export_query As QueryDef 
Dim db As Database 
Set db = CurrentDb 
strSQL = <sql statement as defined by set record code> 

<code that sets my subform record source> 

Set export_query = db.QueryDefs("Export_Query") 
export_query.SQL = strSQL  
End Sub 

で

Private Sub Command2_Click() 
DoCmd.TransferText acExportDelim, exportcsv, "export_query", savefileas, True 

End Sub 

は、その後、更新の各フィルタは、オープンでのコピーであります表示されているもの。

Answer 2

私はこれが機能するために起こっているとは思いません。

DoCmd.OutputToはその後、オブジェクトをスタンドアロンで開き、それをエクスポートしたいと考えています。
2番目のパラメータObjectNameはオブジェクト参照ではなくオブジェクト名です。

それも、あまり変更レコードとサブフォームに、すでに開いているオブジェクト上では動作しません。

良い方法は、サブフォームのレコードとの一時的なクエリ定義を作成することです。
このクエリをエクスポートします。