返回列表 上一主題 發帖

[發問] 從文字檔存成XLS檔

chiahuo
　暱稱: chiahuo

中學生Rank: 2

帖子
183 
主題
46 
精華
0 
積分
322 
點名
0  
作業系統
win 7 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2010-6-18 
最後登錄
2017-9-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-12-18 17:45 | 只看該作者

[發問] 從文字檔存成XLS檔

各位大大：
小弟想讓文字檔用VB跑，自動轉成XLS檔，可是在存檔時，出現錯誤，不知要如何修改，有請大大解惑，謝謝。

Sub test()
'
' test 巨集
'
'
   
   Dim fileToOpen
    fileToOpen = Application.GetOpenFilename(FileFilter:="Text Files (*.txt),*.txt", Title:="請選擇檔案")
    If fileToOpen <> False Then
        Workbooks.OpenText Filename:=fileToOpen _
        , Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array( _
        3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10 _
        , 2)), TrailingMinusNumbers:=True
    End If





Set FileFilte = Application.Workbooks
Do
    fName = Application.GetSaveAsFilename
Loop Until fName <> False
Workbooks.SaveAs Filename:="Text Files(*.xlsx),*.xlsx,Title:=*.xls")  ←這個地方出錯



End Sub
收藏 分享
小弟是excel程式初學者，請多多指教

chiahuo
　暱稱: chiahuo

中學生Rank: 2

帖子
183 
主題
46 
精華
0 
積分
322 
點名
0  
作業系統
win 7 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2010-6-18 
最後登錄
2017-9-26 
3#
發表於 2012-12-19 09:14 | 只看該作者
K大你太強了，謝謝你。
小弟是excel程式初學者，請多多指教

TOP

kimbal

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

論壇貢獻勳章
2#
發表於 2012-12-18 22:26 | 只看該作者
回復 1# chiahuo
  1. Sub test()
  2.    
  3.    Dim fileToOpen
  4.     fileToOpen = Application.GetOpenFilename(FileFilter:="Text Files (*.txt),*.txt", Title:="請選擇檔案")
  5.     If fileToOpen <> False Then
  6.         Workbooks.OpenText Filename:=fileToOpen _
  7.         , Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
  8.         xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
  9.         Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array( _
  10.         3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10 _
  11.         , 2)), TrailingMinusNumbers:=True
  12.     End If
  13.     Dim wb As Workbook
  14.     Set wb = ActiveWorkbook
  15.     FileFilter = "Excel Files(*.xls),*.xls"
  16. Do
  17.     fName = Application.GetSaveAsFilename(, FileFilter:=FileFilter)
  18. Loop Until fName <> False
  19. wb.SaveAs Filename:=fName, FileFormat:=xlWorkbookNormal
  20. End Sub
複製代碼
懂得發問,答案就會在其中

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

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題