彰化一整天的論壇

 找回密碼
 立即註冊
樓主: cool_fan

載入excel資料放進同一份檔案裡新增的工作表

[複製鏈接]
 樓主| 發表於 2019-11-14 18:59:13 | 顯示全部樓層
您好,
1. 我也會重複跟您錯一樣1004的錯。
2. 我如果重複載入excel檔案,可以載入工作表,但同時載入的這份檔案也會額外被獨立開啟。
您可以測試重複載入不同檔案後,來回做好幾次會出現
回復 支持 反對

使用道具 舉報

發表於 2019-11-15 09:05:19 | 顯示全部樓層
cool_fan 發表於 2019-11-14 18:59
您好,
1. 我也會重複跟您錯一樣1004的錯。
2. 我如果重複載入excel檔案,可以載入工作表,但同時載入的這 ...

您好,
    1.會出現1004是因為沒有選取檔案造成,這可以在程式中加判斷解決。
    2.我做了10個檔案匯入,也沒有您說的情形,還是您可以將您操作的過程錄影。

  1. Sub assert()

  2.     Source = Application.GetOpenFilename
  3.     If Source <> False Then
  4.         With Workbooks.Open(Source)
  5.             '文字檔只會有1個sheet,插入到最後一個sheet
  6.            .Sheets(1).Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Sheets.Count)
  7.           .Close
  8.         End With
  9.    
  10.         '複製資料
  11.         Excel.ActiveSheet.Cells.Copy
  12.         
  13.         
  14.         '切換工作表
  15.         Sheets("工作表1").Activate
  16.         Sheets("工作表1").Range("a1").Select
  17.         
  18.         ActiveSheet.Paste
  19.         
  20.         ActiveSheet.Range("a1").Select  '去除選取範圍
  21.    
  22.         '刪除最後一個工作表
  23.         Excel.Application.DisplayAlerts = False '關閉刪除提醒
  24.         Excel.Worksheets(Sheets.Count).Delete
  25.         Excel.Application.DisplayAlerts = True '開啟刪除提醒
  26.     End If
  27. End Sub
複製代碼
20191115.gif

import_file.xls

33 KB, 下載次數: 0

售價: 1 金錢  [記錄]  [購買]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2019-11-15 16:01:05 | 顯示全部樓層
本帖最後由 cool_fan 於 2019-11-15 16:21 編輯

您好,
有檔案大小限制,有1000kb檔案限制
我傳mail給您

回復 支持 反對

使用道具 舉報

發表於 2019-11-15 16:08:24 | 顯示全部樓層
本帖最後由 imingho 於 2019-11-15 16:28 編輯
cool_fan 發表於 2019-11-15 16:01
您好,如附件所示

您好,
     我知道原因了。因為您開啟的檔案是.xlsx,所以這支格式要儲存.xlsm才不會出錯。

import_file.xlsm

15.13 KB, 下載次數: 1

售價: 1 金錢  [記錄]

回復 支持 1 反對 0

使用道具 舉報

 樓主| 發表於 2019-11-15 17:05:53 | 顯示全部樓層
了解,確實是格式問題
謝謝您的耐心回覆,收益良多
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2019-12-23 10:18:52 | 顯示全部樓層
老師,您好想請教下,
如果說今天想讓匯入的資料,讓工作表1的B1值顯示在工作表2的label1的內容,

如附件


代碼如下:
Label1.Caption = Range("B1").Value
不知哪裡宣告上的問題有誤,導致無法這樣使用



import_file.xlsm

20.25 KB, 下載次數: 4

回復 支持 反對

使用道具 舉報

發表於 2019-12-23 11:05:17 | 顯示全部樓層
cool_fan 發表於 2019-12-23 10:18
老師,您好想請教下,
如果說今天想讓匯入的資料,讓工作表1的B1值顯示在工作表2的label1的內容,
如附件

因為您的程式是寫在模組.
所以要用完整物件表示法。

  1. Sub assert()

  2.     Source = Application.GetOpenFilename
  3.     If Source <> False Then
  4.         With Workbooks.Open(Source)
  5.             '文字檔只會有1個sheet,插入到最後一個sheet
  6.            .Sheets(1).Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Sheets.Count)
  7.           .Close
  8.         End With
  9.    
  10.         '複製資料
  11.         Excel.ActiveSheet.Cells.Copy
  12.         
  13.         
  14.         '切換工作表
  15.         Sheets("工作表1").Activate
  16.         Sheets("工作表1").Range("a1").Select
  17.         
  18.         ActiveSheet.Paste
  19.         
  20.         ActiveSheet.Range("a1").Select  '去除選取範圍
  21.         '匯入進來的資料後,工作表1的B1值自動顯示在工作表2的label1,程式撰寫如下
  22.         Sheets("工作表2").Label1.Caption = Sheets("工作表1").Range("B1").Value
  23.         
  24.         '刪除最後一個工作表
  25.         Excel.Application.DisplayAlerts = False '關閉刪除提醒
  26.         Excel.Worksheets(Sheets.Count).Delete
  27.         Excel.Application.DisplayAlerts = True '開啟刪除提醒
  28.     End If
  29. End Sub
複製代碼



import_file.xlsm

49.05 KB, 下載次數: 0

售價: 1 金錢  [記錄]

回復 支持 反對

使用道具 舉報

 樓主| 發表於 2019-12-24 11:22:37 | 顯示全部樓層
學習到一些觀念,謝謝老師
回復 支持 反對

使用道具 舉報

 樓主| 發表於 2020-1-9 19:29:59 | 顯示全部樓層
老師您好,另外想請教下。
關於之前新增此行
=>Sheets("工作表2").Label1.Caption = Sheets("工作表1").Range("B1").Value

假設此行 Sheets("工作表1").Range("B1").Value  的值 為 06:24:46 AM  (為一個時間格式)
不過它顯示出來都只有數值0.61042824xx...

我希望它能顯示出時間 06:24:46
有想說用ToSring 去寫出來,不過還是try不出來
回復 支持 反對

使用道具 舉報

發表於 2020-1-10 10:14:26 | 顯示全部樓層
cool_fan 發表於 2020-1-9 19:29
老師您好,另外想請教下。
關於之前新增此行
=>Sheets("工作表2").Label1.Caption = Sheets("工作表1").Ra ...

您好,
    把它改成
  1. Sheets("工作表2").Label1.Caption = Sheets("工作表1").Range("B1").text
複製代碼

就可以了.
回復 支持 1 反對 0

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-2-22 03:31 , Processed in 0.171912 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表