麻辣家族討論版版 » Excel程式區 » 將資料寫入到其他多個EXCEL檔案

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

[發問] 將資料寫入到其他多個EXCEL檔案

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

1^# 跳轉到 »

發表於 2015-11-4 14:25 | 顯示全部帖子

兩個xls的工作表資料同步

問題一
假如我有A.xlsx 與B.xlsm (巨集檔)
A.xlsx 有工作表1

B.xlsm 有工作表1，要去抓取所有A的所有工作表1內容到B工作表1 (只要A.xlsx資料有更新B就會更新資料)

問題二

假如我有A.xlsx 與B.xlsm (巨集檔)
A.xlsx 有工作表1

B.xlsm 有工作表1，要去抓取所有A工作表1裡面整合內容如 B整行、D整行、E整行到B工作表1的 A整行、B整行、C整行 (只要A.xlsx資料有更新B就會更新資料)

麻煩各位大大了

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

2^#

發表於 2015-11-5 01:33 | 顯示全部帖子

感謝lpk187!
正在努力理解你寫的程式架構

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

3^# 倒序看帖

字體大小: tT

發表於 2015-11-5 02:39 | 顯示全部帖子

[發問] 將資料寫入到其他多個EXCEL檔案

我有三個EXCEL檔案分別為A B C 如圖
A為計算檔案透過按鈕將資料傳送到B 與 C
判斷B 與 C資料最後一筆資料並填上

有大哥大姐寫過類式的程式嗎

收藏

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

4^#

發表於 2015-11-5 13:42 | 顯示全部帖子

TO lpk187
又遇到問題了，稍微改了一下程式
假設A 工作表有2筆資料 A1:E1 要送資料到B
A2:E2要送資料C
改了以下程式，但是只傳送日期，內容不會傳送，而且日期還重複2次，是哪裡理解錯誤了嗎

不好意思一值麻煩你

Private Sub Workbook_Open()
Dim xlPath As Variant, Ro As Integer
Dim xlFilea, xlFileb, arra, arrb
xlPath = ThisWorkbook.Path & "\"
xlFilea = ("B.xlsx")
xlFileb = ("C.xlsx")
arra = Sheets("工作表1").Range("A1:E1")
arrb = Sheets("工作表1").Range("A2:E2")
For i = 0 To 1
Workbooks.Open (xlPath & xlFilea)
With Workbooks(xlFilea).Worksheets("工作表1")
Ro = .Cells(65535, 1).End(xlUp).Row + 1
.Cells(Ro, 1) = arra
End With
Workbooks(xlFilea).Close True
Next
For i = 0 To 1
Workbooks.Open (xlPath & xlFileb)
With Workbooks(xlFileb).Worksheets("工作表1")
Ro = .Cells(65535, 1).End(xlUp).Row + 1
.Cells(Ro, 1) = arrb
End With
Workbooks(xlFileb).Close True
Next
End Sub

複製代碼

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

5^#

發表於 2015-11-6 12:54 | 顯示全部帖子

回復 7# lpk187

謝謝!真的可以了，如果要加上驗證機制應該很難吧
例如A 2015/11/6去偵測B 2015/11/6 與C 2015/11/6 如果有這個日期不新增，有的話新增

謝謝你的指導!

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

6^#

發表於 2015-11-7 01:56 | 顯示全部帖子

夭壽!越來越複雜，都快看不懂了= =
可以幫忙註解一下嗎@@

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

7^#

發表於 2015-11-7 02:33 | 顯示全部帖子

回復 9# lpk187
我試過了!可以但有一個地方會錯誤，第一次資料轉出可以，再按第二次他會出現下圖

Sub Workbook_Open2()
Dim xlPath As Variant, Ro As Integer
Dim xlFilea, xlFileb, arra, arrb
xlPath = ThisWorkbook.Path & "\"
xlFilea = ("B.xlsx")
xlFileb = ("C.xlsx")
arra = Sheets("工作表1").Range("A1:F1")
arrb = Sheets("工作表1").Range("A2:F2")
Workbooks.Open (xlPath & xlFilea)
With Workbooks(xlFilea).Worksheets("工作表1")
Set da = .Columns(1).Find(arra(1, 1), , , , , 2)
If Not da Is Nothing Then GoTo 10
Ro = .Cells(65535, 1).End(xlUp).Row + 1
.Cells(Ro, 1).Resize(UBound(arra), UBound(arra, 2)) = arra
End With
10:
Workbooks(xlFilea).Close True
Workbooks.Open (xlPath & xlFileb)
With Workbooks(xlFileb).Worksheets("工作表1")
Set da = .Columns(1).Find(arrb(1, 1), , , , , 2)
If Not da Is Nothing Then GoTo 10
Ro = .Cells(65535, 1).End(xlUp).Row + 1
.Cells(Ro, 1).Resize(UBound(arrb), UBound(arrb, 2)) = arrb
End With
20:
Workbooks(xlFileb).Close True
End Sub

複製代碼

另一方面如果傳送方式變成如下圖
c.xlsx會有函數去計算數值，可以跳格傳送嗎

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

8^#

發表於 2015-11-7 16:33 | 顯示全部帖子

回復 12# lpk187

好!我全部整理一下再跟你說，謝謝

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

9^#

發表於 2015-11-10 19:24 | 顯示全部帖子

回復 12# lpk187
我將資料整理好了

每日更新接收，黃色區塊有sub 計算數量，所以希望vba貼過去不會覆蓋，或者有什麼方法可以解決也可以，
因為傳送過去的資料，有可能會做微調，所以才希望函數不要被覆蓋掉。
共會傳送3筆資料到各個不同的工作表。

VBA資料自動傳送問題.rar (302.42 KB)

中學生 Rank: 2

帖子: 57
主題: 21
精華: 0
積分: 83
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2022-9-13

10^#

發表於 2015-11-11 19:53 | 顯示全部帖子

回復 15# lpk187

謝謝! 順利運作，但是幾乎看不懂，不知道他的邏輯怎麼去判斷取得整個資料丟到工作表1 、2 、3 程度差太多了@_@

本來想自己改完套用到另一個工作表，看來有些難度，希望等我整理完資料完，能在幫我解答，謝謝

靜思自在 : 心中常存善解、包容、感思、知足、惜福。

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