返回列表 上一主題 發帖

VBA 轉 txt檔(不同資料於不同欄位)

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-4-19 10:20 | 顯示全部帖子

VBA 轉 txt檔(不同資料於不同欄位)

大大好：
因為平常都用記事本輸入，記事本對於要修改或特別標註的功能很差，
想要改用excel方便作業，但是最後還是得要輸出成記事本檔，附件有範例
和excel(敘述)，謝謝。

(未來可能會再加增欄位，請在變數的地方註解一下，感謝)

transform.rar (13.43 KB)
收藏 分享

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
2#
發表於 2013-4-19 16:29 | 顯示全部帖子
大大你好：
假如我在檢查錯誤這加入
───────────────────────────
Sub 檢查錯誤()
    With Sheets("Sheet1").Range("d:d")
        For i = 1 To 9999
        If .cell(3, i).Value = "PLATE" Then
            .Replace "T", "t", xlPart
            .Replace "x", "X", xlPart
        End If
        Next
    End With
End Sub
───────────────────────────
我想表達是 如果前方欄位名稱為"PLATE"則執行大小寫轉換
請問哪裡需要修改呢？

可以成功轉換！謝謝！
可是欄位號碼是錯的，程式會抓不到數據。
EX：
23100-0030        1      PLATE   30tX2000X500                    SA-516-70                 20
這筆資料中間都是【半行】的空白，不是【全行】or【Tab】
感謝！

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
3#
發表於 2013-4-19 22:46 | 顯示全部帖子
本帖最後由 lifedidi 於 2013-4-19 22:47 編輯

大大你好：
謝謝你的幫忙，檢查錯誤OK了。

對於另一個問題，請看下圖


圖中打錯字@@，【以第一行列來說】

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題