返回列表 上一主題 發帖

[發問] 如何使用vb自動存檔?

v60i

帖子
106 
主題
25 
精華
0 
積分
141 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2011-10-27 
最後登錄
2016-4-10 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-11-3 20:56 | 只看該作者

[發問] 如何使用vb自動存檔?

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

如
B2 = 一
B3 = 23

存檔後會變成 一23.txt

謝謝大大
收藏 分享

v60i

帖子
106 
主題
25 
精華
0 
積分
141 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2011-10-27 
最後登錄
2016-4-10 
4#
發表於 2011-11-3 22:26 | 只看該作者
本帖最後由 v60i 於 2011-11-3 22:33 編輯

回復 2# kimbal


大大 我自行攪定了 謝謝

TOP

v60i

帖子
106 
主題
25 
精華
0 
積分
141 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2011-10-27 
最後登錄
2016-4-10 
3#
發表於 2011-11-3 22:21 | 只看該作者
本帖最後由 v60i 於 2011-11-3 22:24 編輯

回復 2# kimbal


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

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 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
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題