怎样用简单的编程实现昂贵的功能啊（终于有了解决方法，比较满意）

excelfuns

excel有一个昂贵的activex插件tbarcode可以很好的实现二维码的生成，可惜要花很多钱，咱穷人另辟蹊径终于解决了。

[ 本帖最后由 excelfuns 于 2010-4-28 12:15 编辑 ]

漂网一叶舟

楼主没事吧？想入非非了？
二维码编码规则是专利，人家不公开的，
卖插件是幌子，卖专有技术才是真的
难道你想破解？
等你破解了发一份来如何？

excelfuns

已有的编码程序只能一个一个手工的复制，只不过用EXCEL实现自动的复制罢了

excelfuns

http://www.quickmark.com.tw/cht/info/Story.asp

excelfuns

http://windyli.blog.51cto.com/1300305/284574，不过不是我要的结果，因为只能写一组数据或文本

excelfuns

http://www.quickmark.com.tw/cht/diy/?qmMeCard

excelfuns

Sub getQR()
Dim resource As String
'filter out non-text cells (remove this line if you want to return QR codes for other cell types)
Set sel = Selection.SpecialCells(xlTextValues)
'add a new sheet for the output
Set news = Worksheets.Add()
news.Name = "QR codes"
Set op = news.Range("A1" )
'do da biz
For Each acc In sel
resource = acc.Value
'technically you should probably escape the string, but it works without
resource = "qrcode.kaywa.com/img.php?s=8&d=" & resource
'140,140 is the size of the shape. This was arbitrary and is probably wrong
'using a shape is a hack to avoid a problem with Office 2007 not inserting pics from web resources
Set newshape = news.Shapes.AddShape(msoShapeRectangle, op.Left, op.Top, 140, 140)
'name it in case we want to use it again later (we don't use this at the moment though)
newshape.Name = resource
'get rid of the surrounding line
newshape.Line.Visible = False
'load that there QR code up into the graphic
newshape.Fill.UserPicture (resource)
'move to the next position on the output sheet
Set op = op.Offset(11, 0).Range("A1" )
op.Value = acc.Value
Set op = op.Offset(2, 0).Range("A1" )
Next
endsub
哪位能结合http://www.quickmark.com.tw/cht/diy/?qmMeCard修改一下啊

[ 本帖最后由 excelfuns 于 2010-4-15 23:17 编辑 ]

excelfuns

网页的参数传递或EXCEL与其他窗口的参数传递，哪位高手能出手帮一下

excelfuns

我很菜，有没有朋友愿意帮改一下

[ 本帖最后由 excelfuns 于 2010-4-25 20:15 编辑 ]

kevinchengcw

占个位看一下