標題: [發問] 如何使用vb自動存檔? [打印本頁]

---

作者: v60i    時間: 2011-11-3 20:56     標題: 如何使用vb自動存檔?

請問大大
我想讓excel 存成txt檔
在txt中不留空白及空一行
檔名抓B2  及 B3

如
B2 = 一
B3 = 23

存檔後會變成 一23.txt

謝謝大大

---

作者: kimbal    時間: 2011-11-3 21:42

假設內容在A欄
strFilename = [B1] & [B2]
    Columns(1).SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
    [B1] = ""
    [B2] = ""
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\...\" & strFilename & ".txt", FileFormat:=xlUnicodeText
    Application.DisplayAlerts = True

---

作者: v60i    時間: 2011-11-3 22:21

本帖最後由 v60i 於 2011-11-3 22:24 編輯

回復 2# kimbal


    大大如果我創CommandButton
貼上大大的程式碼
不能用ㄝ
他說SAVEAS方法失敗

---

作者: v60i    時間: 2011-11-3 22:26

本帖最後由 v60i 於 2011-11-3 22:33 編輯

回復 2# kimbal


大大 我自行攪定了 謝謝

---

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