Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1729 / 9994

←次へ　｜　前へ→


	【11556】Excel出力時の条件について

VBA初心者 - 10/3/29(月) 16:41 -


	引用なし

	パスワード

いつもお世話になります。

　単純にフォームに表示されているデータを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

445 hits

▼

【11556】Excel出力時の条件について VBA初心者 10/3/29(月) 16:41