|
いつもお世話になっています。
フォーム上のコマンドボタンで Q_中学校就学予定児童名簿_xls用のデータをエクセルにエクスポートするようにしています。
フォーム上で、中学校名を選択してからエクスポートしているので、この中学校名をファイル名に反映させたいのですが、方法がよくわかりません。
現在
Private Sub エクセル変換_Click()
If InputCheck2() <> 0 Then
MsgBox "入力されていない項目があります。", vbOKOnly, "入力もれ"
Exit Sub
End If
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Q_中学校就学予定児童名簿_xls用", "E:\名簿\中学校就学予定児童名簿.xls", True
End Sub
とコードを書いていて、これだと中学校就学予定児童名簿というエクセルファイルができます。
パス名を
"'E:\名簿\中学校就学予定児童名簿'& me!中学校名 & '.xls'"
と書いてみましたが、そうするとエラーになります。
どなたか解決方法をお願いします。
|
|