暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
14#
發表於 2011-5-11 10:35
| 只看該作者
本帖最後由 mark15jill 於 2011-5-11 10:39 編輯
End Sub[/code]回復 13# GBKEE
剛剛發現 我那兩行位置有打錯= =....(應該是後來我又亂改 沒注意到 抱歉ˊˋ)
原始碼差別 已經附加檔案
以下是兩者的代碼
台灣的部份
Sub 按鈕5_Click()
Dim Sh As Object
On Error Resume Next
Set Sh = ThisWorkbook.Sheets(1)
With Workbooks.Add(xlWBATWorksheet)
Sheets("sheet1").Select
Sheets("sheet1").Name = Sh.TextBox1 ' 新增的那個檔案內的名稱為 TEXT的字眼
Sh.UsedRange.Offset(1).Copy .Sheets(1).[A1]
.SaveAs ThisWorkbook.Path & "\" & Sh.TextBox1
.Close 0
End With
End Sub
美國的部份
Sub 按鈕5_Click()
Dim Sh As Object
On Error Resume Next
Set Sh = ThisWorkbook.Sheets(1)
With Workbooks.Add(xlWBATWorksheet)
Sh.UsedRange.Offset(1).Copy .Sheets(1).[A1]
.SaveAs ThisWorkbook.Path & "\" & Sh.TextBox1
.Close 0
' Sheets("Sheet1").Select
' Sheets("Sheet1").Name = Sh.TextBox1
End With
End Sub
附加檔案內有兩個 TXT 和 EXCEL檔案 分別為 美國和 台灣
查詢比對.rar (10.14 KB)
|
|