Excel 에서 VB 로 QR 코드 대량 생 성

엑셀 에서 enable 개발 도 구 는 파일 - > 옵션 - > 사용자 정의 기능 에서 개발 도 구 를 클릭 하고 저장 해 야 합 니 다.
개발 도구 Tab 에서 Visual Basic 클릭

Private Sub BarCodeCtrl1_GotFocus()
lastrow = Range("a10000").End(xlUp).Row

For i = 2 To lastrow
Cells(i, 5).Select
URL = "http://qr.liantu.com/api.php?text=" & Cells(i, 1) & Chr(10) & Cells(i, 2) & Chr(10) & 

Cells(i, 3) & Chr(10) & Cells(i, 4)

ActiveSheet.Shapes.AddPicture(URL, False, True, 1, 1, 100, 100).Select
Set Rng = Cells(i, 5)
With Selection
.Top = Rng.Top + 1
.Left = Rng.Left + 1
.Width = Rng.Width - 2
.Height = Rng.Height - 2
End With
Next

End Sub

QR 코드 무료 생 성 API:http://www.liantu.com/pingtai/
주의: 예 에서 생 성 된 QR 코드 는 그림 으로 앞의 가치 에 따라 바 뀌 지 않 습 니 다.그림 이 삭제 되 고 이동 할 때 엑셀 파일 에 있 는 그림 은 자원 위 치 를 찾 을 수 없습니다.https://blog.csdn.net/g1418377085/article/details/71125033