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

444 hits

【11556】Excel出力時の条件について VBA初心者 10/3/29(月) 16:41 質問[未読]
【11564】Re:Excel出力時の条件について 247b 10/4/1(木) 9:54 発言[未読]
【11565】Re:Excel出力時の条件について VBA初心者 10/4/1(木) 16:54 お礼[未読]

1729 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078193
(SS)C-BOARD v3.8 is Free