求救：爲何無法插入QR Code 圖片 - Excel程式區

[發問] 求救：爲何無法插入QR Code 圖片

1^# 跳轉到 »

發表於 2024-9-15 22:27 | 顯示全部帖子

之前是用 google api 來做QR code, 但是由於中國地區不能打開Google, 所以使用 Microsoft Barcode con ...
198188 發表於 2024-9-13 13:02

那個網址好像不能用了,
你可以考慮換一個網址,
請參考這一篇 :
EXCEL QRcode or 條碼
底下的 7#

2^#

發表於 2024-9-18 23:15 | 顯示全部帖子

本帖最後由 luhpro 於 2024-9-18 23:17 編輯

謝謝前輩指導。
不過我的問題是　QR Code 不能插入，Bar Code 只是轉一下字體就可以，這個問題不大 ...
198188 發表於 2024-9-17 09:33

你提供的檔案裡找不到 : Sub create_all_qrcode(),
找了一下最相近的應該是 : Sub QRCODE(),
姑且以此為嘗試的標的.

1. 你的程式少個點多個括弧 :

2. End Sub 底下也多一行指令 :

若直接從 QRCODE 這個 Sub 開始執行的話,

3. 底下這幾行因為會使用到你自己電腦的 OneDrive 內容, 所以其他人測不了:

ChDir "C:\Users\User\OneDrive - Innomet International Limited\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\User\OneDrive - Innomet International Limited\Desktop\barcode1.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

複製代碼

4. 程式若跑單步執行到這一行

ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1").Object.Value = Range("A1").Value

複製代碼

會直接跳出訊息 :

按下 "繼續" 按鈕後就關閉並還原了 :

>> 我試過 For I = 2 To 2 結果一樣

這個問題導致Excel 檔案故障開不了另存了好幾個新檔後,
才發現是因為這一行的原因 :

複製代碼

你把這行拿掉再試試看吧.....
.
實在試不下去了,
Excel 檔案嚴重錯誤重開重存修復好幾次,
不知道是不是版本的關係......

靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。