| |
いつもお世話になります。
単純にフォームに表示されているデータをEXCELに出力したいのですが、
出力するときに、クエリを作成しているときの条件（>=[日付はいつ？]）
が聞かれてしまいます。
あくまで、フォーム上に表示されているデータのみをExcelに出力する方法は
ないでしょうか。
また、Excelに出力するときに、「%」で出力したいセルがあるのですが、どの
ような指定をしたらよろしいでしょうか。
現在はフォーム上では「90%」のように表示されているのですが、Excelに出力
すると、「0.9....」のように出力されてしまいます。
お忙しい中恐縮ですが、どなたかご教授をお願いします。下記にコードを記載
致します。
-----------------------VBA---------------------------------------------
Private Sub コマンド13_Click()
On Error GoTo エラー
Dim varAccess As Variant
Dim varExcelPass As Variant
Dim strmsg As String
Dim myDir As String 'デスクトップ定数
myDir = CreateObject("WScript.Shell").SpecialFolders("Desktop")
varAccess = "クエリ1" '
varExcelPass = myDir & "\" & Format(Date, "yyyy_mm_dd") & "情報収集.xls" ' --- C
'If MsgBox(strmsg, vbOKCancel) = vbOK Then
DoCmd.TransferSpreadsheet acExport, _
acSpreadsheetTypeExcel9, varAccess, varExcelPass, True '--- D
MsgBox "データ出力は、正常に完了しました。"
'End If
Exit Sub
エラー:
If Err.Number = 3044 Then ' --- E
MsgBox "Excelファイルのパス指定が誤っています。", vbCritical
Else
MsgBox "予期せぬエラーが発生しました。", vbCritical
End If
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
