標題: [發問] VBA語法問題---求解 [打印本頁]

---

作者: jiing0819    時間: 2015-8-6 15:49     標題: VBA語法問題---求解

本帖最後由 jiing0819 於 2015-8-6 15:52 編輯

大大您好，事情是這樣的，因需要在資料庫新增列印標籤語法，目前新增了列印第三張(紅色字體)的語法
    If IPNEET = "TAI2009" Then
        Open "s:\資料庫\條碼\複捲\tomm.txt" For Output As #1
        Print #1, 條碼
        Close #1
        Open "s:\資料庫\條碼\複捲\tomm.txt" For Append As #1
        Print #1, 條碼 & "-2"
        Close #1
        Open "s:\資料庫\條碼\複捲\tomm.txt" For Append As #1
        Print #1, 條碼 & "-3"
        Close #1
        Shell "s:\資料庫\條碼\複捲\TranE.exE"
    End If
目前遇到的問題是 單號為G50176N31D01R1，如果我再連續列印在第三張的時候只要取50176N31D01，頭碼跟後兩碼都要去掉，請問我這樣下是否為正確?
感激不盡
If Mid(Cells(加工RC_RecordRow, 加工RC_子捲捲號), 2, 12) = "5" Then

---

作者: GBKEE    時間: 2015-8-9 14:50

回復 1# jiing0819
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.    Dim 單號 As String
   
4.    單號 = "G50176N31D01R1"
   
5.    單號 = Mid(單號, 2)
   
6.    單號 = Mid(單號, 1, Len(單號) - 2)
   
7.    MsgBox 單號
   
8. End Sub

複製代碼

---

作者: jiing0819    時間: 2015-8-14 13:27

回復 2# GBKEE


    感謝大大的無私教導

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)