返回列表下一主題上一主題發帖

[發問] 從文字檔存成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程式初學者，請多多指教

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

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

論壇貢獻勳章

2^#

發表於 2012-12-18 22:26 | 只看該作者

回復 1# chiahuo

Sub 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
Dim wb As Workbook
Set wb = ActiveWorkbook
FileFilter = "Excel Files(*.xls),*.xls"
Do
fName = Application.GetSaveAsFilename(, FileFilter:=FileFilter)
Loop Until fName <> False
wb.SaveAs Filename:=fName, FileFormat:=xlWorkbookNormal
End Sub

複製代碼

懂得發問,答案就會在其中

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

TOP

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

靜思自在 : 愛不是要求對方，而是要由自身的付出。

返回列表下一主題上一主題