返回列表 上一主題 發帖

[發問] 問題二.從excel直接轉出到 C:\SP20101002.TXT 檔案中去?

metrostar

帖子
55 
主題
20 
精華
0 
積分
80 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
女 
註冊時間
2010-7-5 
最後登錄
2013-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-6 17:06 | 顯示全部帖子

[發問] 問題二.從excel直接轉出到 C:\SP20101002.TXT 檔案中去?

學妹又來麻煩大家了

請帥哥/美女版主 帥哥/美女學長跟學姐

幫忙學妹完成

謝謝了

SP20101002 為舊資料
SP20101001 為新資料(檔案中不存在也不出現的,目的是對照參考用的)

原有舊資料 SP20101002.TXT (已經存在內容)
如果轉出的資料,舊資料沒有的要增加,如果舊資料已經有了就不管它
往下判斷

判斷方法是這樣的,考慮第一個空格為準
只考慮空格左前為基準,空格後的內容不理它

三個小例子

新資料

3A 12
A&M 5959
A50CHT 0703

舊檔案
SP20101002.TXT

1. 有了 3A        0012 3A訧埭 ,只考慮 3A 有了跳過往下一格
2. 有了 A&M        5959 A&M華莉,只考慮 A&W 有了跳過往下一格
3. 只有 A50CHTK-C1        0703C1 A50笢弊價踢 沒有 A50CHT , 所以 SP20101002.TXT 要新這筆

最終只有一個 SP20101002.TXT 新資料會增加,舊資料原封不動,要儲存複蓋原檔案

metrostar308.rar (55.74 KB)

收藏 分享

metrostar

帖子
55 
主題
20 
精華
0 
積分
80 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
女 
註冊時間
2010-7-5 
最後登錄
2013-8-25 
2#
發表於 2010-10-8 11:41 | 顯示全部帖子
學妹問題還沒有解決啦,就是輸出 *.txt
A列跟B列對調且原有跟EXCEL檔不要複蓋,僅增加新內容

請帥哥/美女版主 帥哥/美女學長跟學姐

幫忙學妹完成

謝謝了

TOP

metrostar

帖子
55 
主題
20 
精華
0 
積分
80 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
女 
註冊時間
2010-7-5 
最後登錄
2013-8-25 
3#
發表於 2010-10-8 21:59 | 顯示全部帖子
首先多謝帥哥版主回覆

對的就是這意思
只比對空格左前為基準,空格後的內容不比對

TOP

metrostar

帖子
55 
主題
20 
精華
0 
積分
80 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
女 
註冊時間
2010-7-5 
最後登錄
2013-8-25 
4#
發表於 2010-10-13 15:08 | 顯示全部帖子
回復  metrostar
只比對空格左前為基準, 和Sheet1的B欄比對嗎?
CreateTextFile 方法 建立一個指定的檔名 ...
GBKEE 發表於 2010-10-9 10:10



嘩 棒極了
完全達到耶
學妹真的非常感動呢
太感謝 GBKEE 帥哥版主(老師)您了
您真是太強太厲害了
感謝您並祝賀您
幸福好運永遠降臨您身上

看到就不會加入
非常傷腦筋

如果增加 開啟某路徑檔案

   With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "*.txt"
        .Show
        If .SelectedItems.Count > 0 Then
            fs = .SelectedItems(1)
        Else
            MsgBox "沒有選取檔案 !!!"
            Exit Sub
        End If
    End With

處理後

結束為出現訊息 想覆蓋原舊檔名呢 Y OR N 或是想建新檔名 那更棒

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題