[發問] 請問如何快速比對資料

帖子: 7
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2012-3-3
最後登錄: 2018-3-29

11^#

發表於 2012-3-25 01:45 | 只看該作者

回復 10# register313

謝謝大大的幫忙 , 我先了解一下程式的意義 , 再次感謝.

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

10^#

發表於 2012-3-24 23:56 | 只看該作者

回復 9# chen255

excel檔與要匯入的html檔放同一目錄下

Sub 匯入()
Dim i%
Application.ScreenUpdating = False
For i = 1 To 5
sFile = ThisWorkbook.Path & "\" & i & ".html"
If Dir(sFile) = "" Then GoTo NEXT_FILE
For Each Sh In Sheets
If Sh.Name = i Then
Application.DisplayAlerts = False
Sh.Delete
Application.DisplayAlerts = True
End If
Next
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = i
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & i & ".html"
Workbooks(i & ".html").Sheets("sheet1").Cells.Copy ThisWorkbook.ActiveSheet.[A1]
Workbooks(i & ".html").Close 2
NEXT_FILE:
Next
Application.ScreenUpdating = True
MsgBox "匯入完成"
End Sub

複製代碼

帖子: 7
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2012-3-3
最後登錄: 2018-3-29

9^#

發表於 2012-3-24 17:40 | 只看該作者

回復 8# register313

了解 , 再次大大的感謝說明.

另外 , 想請教另一個問題.
假設我硬碟內有1.html , 2.html , 3.html , 4html , 5.html 共五筆檔案.
有辦法將檔案匯入到想指定的excel 位置嗎?

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

8^#

發表於 2012-3-18 01:55 | 只看該作者

本帖最後由 register313 於 2012-3-18 02:12 編輯

回復 7# chen255

Sheets(Y & "營業收入").Activate
Set Source = Sheets(Y & "營業收入").Range([A12].Offset(0, (M - 1) * 10), [J65536].Offset(0, (M - 1) * 10).End(xlUp))
Sheets(Y & "營業收入").是多的,可不要
定義工作表之儲存格範圍時,該工作表必須為活動工作表

以上二行也可改為
Set source = Sheets(Y & "營業收入").Range(Sheets(Y & "營業收入").[A12].Offset(0, (M - 1) * 10), Sheets(Y & "營業收入").[J65536].Offset(0, (M - 1) * 10).End(xlUp))

http://forum.twbts.com/viewthread.php?tid=1294&highlight=SET

帖子: 7
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2012-3-3
最後登錄: 2018-3-29

7^#

發表於 2012-3-18 00:29 | 只看該作者

回復 3# register313

Dear register313大大

你好 , 有個問題想請教.

Sheets(Y & "營業收入").Activate

為何需要執行這段動作.

帖子: 7
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2012-3-3
最後登錄: 2018-3-29

6^#

發表於 2012-3-13 09:49 | 只看該作者

回復 3# register313

小弟晚一點再將測試結果貼上來 , 謝謝.

帖子: 7
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2012-3-3
最後登錄: 2018-3-29

5^#

發表於 2012-3-13 09:49 | 只看該作者

回復 2# Hsieh

小弟晚一點再將測試結果貼上來 , 謝謝.

帖子: 7
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
註冊時間: 2012-3-3
最後登錄: 2018-3-29

4^#

發表於 2012-3-13 09:48 | 只看該作者

這幾天工作量很大到現在才上來看帖 ,
這裡先感謝Hsieh & register313 兩位先進 , 小弟晚一點再將測試結果貼上來 , 謝謝.

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-3-9 22:36 | 只看該作者

本帖最後由 register313 於 2012-3-10 14:51 編輯

回復 1# chen255

Sub 月營收明細()
With Sheets("Main")
.[AB1].CurrentRegion.Offset(3, 0) = ""
For Y = .[AC2] To .[AE2]
For M = 1 To 12
Sheets(Y & "營業收入").Activate
Set Source = Sheets(Y & "營業收入").Range([A12].Offset(0, (M - 1) * 10), [J65536].Offset(0, (M - 1) * 10).End(xlUp))
Set Code = Source.Find(.[C1], , , xlWhole)
R = .[AB65536].End(xlUp).Row + 1
If Not Code Is Nothing Then
.Range("AB" & R) = Y & "/" & Format(M, "00")
.Range("AC" & R, "AI" & R) = Array(Code.Offset(, 2), Code.Offset(, 5), Code.Offset(, 4), Code.Offset(, 6), Code.Offset(, 7), Code.Offset(, 8), Code.Offset(, 9))
End If
Next M
Next Y
End With
End Sub

複製代碼