跟条形码二维码死磕到底——VBA引用PHP开源项目批量生成条形码和二维码图文教程

loveyymm88

xzhpcm 发表于 2017-11-18 14:34
请版主指点，不支持中文生成二维码。在PHP QR官方网站可以生成。

类似问题,无法识别 尺寸类的表达,比如230*10*9,如何解决呀

agfox123

二维码那个可以不生成临时文件的

agfox123

新建一个test.php 代码如下：
<?php function scerweima2($url=''){  
    require_once 'phpqrcode.php';  
      
    $value = $url;                  //二维码内容  
    $errorCorrectionLevel = 'Q';    //容错级别   
    $matrixPointSize = 5;           //生成图片大小   
    //生成二维码图片  
    $QR = QRcode::png($value,false,$errorCorrectionLevel, $matrixPointSize, 2);  
}  
//调用查看结果  



scerweima2(htmlspecialchars($_GET["name"]));  


然后http://127.0.0.1:91/phpqrcode/test.php?name=http://www.baidu.com 就是要的图片
跟条形码基本一样的代码

agfox123

接上一条回复

agfox123

如图就是test.php的代码，用到的库还是楼主推荐的phpqrcode

lxlyhu

以上方法需通过网站，还要配置PHP环境，太复杂、太麻烦。
本人也搞了一个在excel中批量插入“二维码或商品条码”的工具，要比这简单多了，直接在excel中就可用。
注意：首次使用时，可能会提示“是否信任XX控件”，选择“信任”即可。

liyunqiu110

请问局域网能用吗？

huang1314wei

liyunqiu110 发表于 2018-4-13 08:30
请问局域网能用吗？

当然可以的，没有问题，如果你们局域网有服务器，可以在服务器上创建网站，安装PHP环境，然后把项目文件复制到www目录，然后局域网任意电脑访问服务器IP+端口也是可以的，道理是相通的

liyunqiu110

Dim arr, ListBoxSel As Boolean
Dim l
Public Function zm(S As String)
Dim dom As Object
Set dom = VBA.CreateObject("htmlfile")
Set owindow = dom.parentWindow
dom.write "<Script></Script>"
zm = owindow.encodeURI("http://pan.baidu.com/share/qrcode?w=300&h=300&url=" & S)
Set dom = Nothing
Set owindow = Nothing
End Function

Sub LoadPic(ByVal URL As String, ByVal rng As Range) 'URL为图片网络地址，rng为图片放置单元格位置
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") '调用剪切板
    .SetText "<table><img src=""" & URL & """>" '设置文本
    .PutInClipboard '放入剪切板
    ActiveSheet.Paste Destination:=rng '设置放置位置
End With
Application.CutCopyMode = False '释放剪切板
End Sub

Sub 按钮3_Click() '二维码

     Dim S As String
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
    If shp.TopLeftCell.Address = "$A$1" Then
        shp.Delete
    End If
Next shp
S = zm([AH7]) '转码
LoadPic S, [A1] '加载图片
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 71
Selection.ShapeRange.Width = 75

End Sub


您好，上面这段是论坛上大神引用api接口生成二维码   您这个本地网页能不能用这种方式呈现

qinyu0745

留个记号，以后好找