想請問01上的高手
小弟我有用EXCEL VBA寫個 開啟另一個TXT檔的,如下:
Sub 讀取報表()
'
Set app = CreateObject("Excel.Application")
With app
fileopen = .Application.GetOpenFilename("報表(*.TXT), *.TXT")
.Workbooks.Open (fileopen)
.Visible = True
Call Macro1
End With
End Sub
但是我有一個問題,點它開啟檔案後,會另開一個excel檔,
我想把另開報表中的sheet1中的A整行 對應到原本(有VBA程式)的excel檔中sheet3的C整行
就是拷貝的意思,我該怎麼做?用了一個下午,不會就是不會,只好上來請教了!
還有一個問題想請教,就是有辦法開啟EXCEL就執行巨集,不讓使用者有改工作表資料的權限嗎?
謝謝了~感激不盡!
用巨集另外開啟後就會出現陣列索引超出範圍!!謝謝了!
Sub 讀取報表檔()
'
Set app = CreateObject("Excel.Application")
With app
fileopen = .Application.GetOpenFilename("報表 (*.dbf), *.dbf")
.Workbooks.Open (fileopen)
.Visible = True
Workbooks("123.dbf").Sheets("sheet1").Range("A:A").Copy Destination:=Sheets("sheet3").Range("C:C")
End With
End Sub
內文搜尋

X