<output id="os3gq"><ruby id="os3gq"></ruby></output>

    1. <mark id="os3gq"></mark>
    2. Access交流中心

      北京 | 上海 | 天津 | 重慶 | 廣州 | 深圳 | 珠海 | 汕頭 | 佛山 | 中山 | 東莞 | 南京 | 蘇州 | 無錫 | 常州 | 南通 | 揚州 | 徐州 | 杭州 | 溫州 | 寧波 | 臺州 | 福州 | 廈門 | 泉州 | 龍巖 | 合肥 | 蕪湖 | 成都 | 遂寧 | 長沙 | 株洲 | 湘潭 | 武漢 | 南昌 | 濟南 | 青島 | 煙臺 | 濰坊 | 淄博 | 濟寧 | 太原 | 鄭州 | 石家莊 | 保定 | 唐山 | 西安 | 大連 | 沈陽 | 長春 | 昆明 | 蘭州 | 哈爾濱 | 佳木斯 | 南寧 | 桂林 | ???/a> | 貴陽 | 西寧 | 烏魯木齊 | 包頭 |

      回復 加入收藏帖  復制
      我要提問 帖子上移

      Access數據導出到Excel固定格式,到一百多條時會出錯,請問代碼有什么問題嗎?

      ejihua 等級: 普通會員 積分:2 金幣:0 來自:寧波Access交流中心 發表于:2017-09-10 10:39:38   已結帖
      樓主

      Access數據導出到Excel固定格式,到一百多條時會出錯,請問代碼有什么問題嗎?

      點擊下載此附件

       

      access培訓  誠聘access開發人員

          ejihua
            獲得社區協助:請教問題(即發帖)6篇,其中獲得解決的3篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的1篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      Top

      掃描下方工作人員的微信二維碼加微信,邀您加入Access課堂微信群,進入一個技術交際圈:

      網站工作人員微信

      濤濤 等級:普通會員▲ 積分:102 金幣:40 來自:上海Access交流中心 發表于2017/9/10 17:46:16 
      1樓 得分: 0

      1234

      看看這樣行不行?



          很高興與您就本帖子進行交流,如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,我也將獲得2個積分獎勵,并不會減少您的積分!
          濤濤
            獲得社區協助:請教問題(即發帖)1篇,其中獲得解決的1篇;
            協助社區成員:協助他人(即回帖)1篇,其中被設為【最佳答案】的0篇;
            協助我們社區:發布技術文章1篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      ejihua 等級:普通會員 積分:2 金幣:0 來自:寧波Access交流中心 發表于2017/9/10 20:13:52 
      2樓 得分: 0

      多謝回復,以前的導出仍然是一百多條會出錯,1004.

      新導出,可以導出數據,是不是就是系統的?不能導出圖片?

      Private Sub Command123_Click()
      On Error GoTo Err_導出_Click
          DoCmd.OutputTo acOutputQuery, "訂單查詢", acFormatXLSX, , True
      Exit_導出_Click:
          Exit Sub
      Err_導出_Click:
          MsgBox "你已取消導出Excel操作!", vbOKOnly, "注意"
          Resume Exit_導出_Click


      End Sub



          ejihua
            獲得社區協助:請教問題(即發帖)6篇,其中獲得解決的3篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的1篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      紅塵如煙 等級:管理員★★★★★ 積分:9150 金幣:8520 來自:成都Access交流中心 發表于2017/9/12 14:23:17 最佳答案
      3樓 得分: 2

      賦值給單元格的時候,要強制轉換為字符串類型,否則有些版本中,無法正確處理 Null 值。

      objSheet.Range("A1") = rst!字段1
      改成:

      objSheet.Range("A1") = "" & rst!字段1

      按模板導出示例(改).zip




          希望我的回答能解決了您的問題,或者所附上的這些信息對您有所幫助!如有任何疑問或需要進一步幫助,請您直接在本站發貼,我們非常樂意幫助您解決問題!
          如果我的回答已經解決了您的問題,請點擊上方的“最佳答案”,這樣本帖子就不會在“待解決問題區”顯示了,以方便大家對那些正在等待解決的帖子給予關注!
          紅塵如煙  [協助社區成員回帖411篇,其中【最佳答案】208篇;發布技術文章213篇。]
          UMVSoft在線支持工程師
          http://www.umvsoft.com
          如果您沒有注冊這個論壇,請單擊下面的鏈接進行注冊,與我在論壇進行交流:
          http://www.beijingfeeling.com/reg/reg.asp?userid=10768
          本貼子以“現狀”提供且沒有任何擔保,同時也沒有授予任何權利。
      ejihua 等級:普通會員 積分:2 金幣:0 來自:寧波Access交流中心 發表于2017/9/12 23:01:52 
      4樓 得分: 0


      版主,您好,多謝回復,測試無圖時通過,不過加入圖片,導出圖片時,會出錯提示。

      是不是插入圖片的代碼還要修改?

       strPicName = strPicPath & rst!合同 & ".jpg"
              '如果該產品有圖片,且圖片有效,則插入圖片
              If Dir(strPicName) <> "" Then
                  objSheet.Range("A3").Select
                  objSheet.ActiveSheet.Pictures.Insert(strPicName).Select
                  '調整圖片位置
                  objSheet.Selection.ShapeRange.IncrementLeft 2
                  objSheet.Selection.ShapeRange.IncrementTop 2
                  '調整圖片大小,注意必需要取消縱橫比鎖定,不然大小會有問題
                  objSheet.Selection.ShapeRange.LockAspectRatio = 0
                  objSheet.Selection.ShapeRange.Width = 60
                  objSheet.Selection.ShapeRange.Height = 45
              End If

      點擊下載此附件



          ejihua
            獲得社區協助:請教問題(即發帖)6篇,其中獲得解決的3篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的1篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      ejihua 等級:普通會員 積分:2 金幣:0 來自:寧波Access交流中心 發表于2017/9/13 8:40:26 
      5樓 得分: 0
      strPicName = strPicPath & rst!合同 & ".jpg"
              '如果該產品有圖片,且圖片有效,則插入圖片
              If Dir(strPicName) <> "" Then
                  objApp.Range("A3").Select
                  objApp.ActiveSheet.Pictures.Insert(strPicName).Select
                  '調整圖片位置
                  objApp.Selection.ShapeRange.IncrementLeft 2
                  objApp.Selection.ShapeRange.IncrementTop 2
                  '調整圖片大小,注意必需要取消縱橫比鎖定,不然大小會有問題
                  objApp.Selection.ShapeRange.LockAspectRatio = 0
                  objApp.Selection.ShapeRange.Width = 60
                  objApp.Selection.ShapeRange.Height = 45

              End If

      objSheet改回objApp,通過,導出圖片不報錯。



          ejihua
            獲得社區協助:請教問題(即發帖)6篇,其中獲得解決的3篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的1篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      ejihua 等級:普通會員 積分:2 金幣:0 來自:寧波Access交流中心 發表于2017/9/13 8:43:55 
      6樓 得分: 0

      另想請教,現在導出時鼠標指針不停轉圈,看不到進度,怎么改回以前的導出時數據一條條向上跳動的效果?


      導出到Excel中的圖片是連接形式,發送給別人,對方看不到圖片,能不能是插入的,不是連接?



          ejihua
            獲得社區協助:請教問題(即發帖)6篇,其中獲得解決的3篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的1篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      ejihua 等級:普通會員 積分:2 金幣:0 來自:寧波Access交流中心 發表于2017/9/21 21:26:32 
      7樓 得分: 0
      strPicName = strPicPath & rst!合同 & ".jpg"
              '如果該產品有圖片,則插入圖片
              If Dir(strPicName) <> "" Then
                  objApp.Range("A3").Select
                  Dim lef
                  Dim rit
                  Dim log
                  Dim wit
                  lef = objApp.Range("A3").Left + 2
                  rit = objApp.Range("A3").Top + 2
                  log = objApp.Range("A3").Width - 4
                  wit = objApp.Range("A3").Height - 4                    
                  objApp.ActiveSheet.Shapes.AddPicture(strPicName, msoFalse, True, lef, rit, log, wit).Select              

              End If


      參照別人的例子,插入圖片的代碼部分又改了一下,圖片可以直接插入Excel了,不是鏈接方式。



          ejihua
            獲得社區協助:請教問題(即發帖)6篇,其中獲得解決的3篇;
            協助社區成員:協助他人(即回帖)0篇,其中被設為【最佳答案】的1篇;
            協助我們社區:發布技術文章0篇,邀請了0名新會員注冊本社區(如何邀請會員注冊,詳見:http://www.beijingfeeling.com/sitehelp.asp)。
      總記錄:7篇  頁次:1/1 9 1 :
      您還沒有在Access軟件網登錄不能回復帖子
      • 你沒有登錄,請點擊后面鏈接登錄:登錄
      • 如果你沒有注冊,請點擊后面鏈接注冊:注冊,注冊完成后,請再次訪問本頁功能。
       
      湖北11选5