![](/img/trans.png)
[英]VBA - Export Image from Excel *without* using Clipboard (Copy/Paste)
[英]Copy specific image from webpage and paste into Excel using VBA
我正在尝试从单元格中获取字符串,将其复制到免费的二维码生成器(例如 | http://goqr.me/ ),然后将生成的图像带回我的电子表格。 (我喜欢这个生成器,因为你不需要点击“提交”——它会在输入文本时更新图像。假设/希望这个功能能让这更容易)
我试图避免安装新的条形码字体和购买特定于条形码的包。
使用下面的代码,我可以让浏览器打开并输入所需的文本。 我现在需要一种方法将图像恢复到我的电子表格中。 我当前使用的代码仅在单元格 C1 中返回“[object]”(作为文本)。
如何使用 VBA 将此图像放到剪贴板上?
Public ieApp As Object
Sub Barcode()
Dim ieDoc As Object
Dim InputBox As Object
Dim qrBoxImage as Object
barcodeTerm = Range("B1").Value
If TypeName(ieApp) = "Object" Or TypeName(ieApp) = "Nothing" Then
Set ieApp = CreateObject("InternetExplorer.Application")
ieApp.Navigate ("http://goqr.me/")
End If
While ieApp.ReadyState <> 4
DoEvents
Wend
ieApp.Visible = True
Set ieDoc = ieApp.Document
Set InputBox = ieDoc.getElementsByName("text")
Set qrBoxImage = ieDoc.getElementByID("qrcode-preview-image")
InputBox.Item(0).Value = barcodeTerm
Range("C1").Value = qrBoxImage
Set ieDoc = Nothing
End Sub
您可以按照此处详细说明的步骤操作:
尽管该示例在 Access 中使用,但它仍然是 VBA 代码,因此它仍然应该在 Excel 中工作
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.