由于我是超級新手，所以很多簡單的都不怎么清楚，但是安排的任務一點不含糊，研究一天未果，只能來求救了！！！
下面的是我百度后，綜合寫出來的，什么TYPE_GET，ban_get，都是隨便取的，請問一般要怎么取？
具體我需要幫忙修改的，我在代碼里面寫明白了。
Public banshu As String
Public jizhong As String
Private Sub type_get()
Dim text As String
Open "C:\data\ReadCamera\QR.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, text
Loop
jizhong = Left(text, 11)
banshu = Mid(text, 34, 1)
Debug.Print banshu
Close
End Sub
Private Sub ban_get()
Dim a As String, h, w
Dim csvfile As String
Dim hang As Integer, lie
csvfile= "C:\label\銘板.csv"
a = "A"
h = "H"
w = "W"
If banshu = a Then ‘（這里的banshu怎么能用上面取得的值？）
Debug.Print "版數A"
Open csvfile For Input As #2’（這里我是想打開一個CSV檔案，然后按照上面獲得的jizhong值，查找CSV第一列里相同值，然后輸出這個數值的行數）
ElseIf banshu = h Then
Debug.Print "版數H"
ElseIf banshu = w Then
Debug.Print "版數W"
End If
End Sub
uj5u.com熱心網友回復：
在要用之前通過函式或程序來設定即可。...........
type_get
If banshu = a Then ‘（這里的banshu怎么能用上面取得的值？）
...........
uj5u.com熱心網友回復：
sub是子程式, 不是函式function才是函式, 可以回傳計算結果轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/112446.html
標籤：VB基礎類