作者smoothelvis (ELVIS)
看板Visual_Basic
標題[VBA ] 已有檔案資訊如何修改至另一sheet中
時間Fri May 27 01:54:15 2011
請教各位VB大師
小弟我在寫VB算是這兩天剛開始碰需要的程式碼google，複製後 再做一些更改 順便學
我目前的進度是：
一開始是先瀏覽並抓取要修改的資料 這個已經OK
然後sheet1的名稱也已經抓到
主要的問題是：
不知道怎麼對此檔案下的sheet作修改，我是想把瀏覽到的檔案中的sheet1中的資料
，作修改後 複製到同個excel下"剛開的"sheet2 並重新命名sheet2
檔案路徑的字串為file_address
sheet1的名稱為sheet_name
感謝各位大師
Private Sub() CommandButton1_Click()
Dim sourceRange As Range
Dim destSheet As String
Dim destRange As Range
Dim destColumn As Integer
Dim calSwitch As Integer
Dim exl As New Excel.Application
'指定sheet的指定內容
Set sourceRange = Worksheets("sheet1").Range("A2:B2")
'抓取取要複製到的sheet名稱
destSheet = "sheet2"
'指定要複製到的sheet的範圍
Set destRange = Worksheets(destSheet).Range("A2:B2")
calSwitch = Application.Calculation
Application.Calculation = xlManual
For y = 1 To sourceRange.Rows().Count
If sourceRange.Item(y + 2, 1) = "" Then Exit For
For x = 1 To sourceRange.Columns.Count
If sourceRange.Item(1, x) <> "" Then
destColumn = Val(sourceRange.Item(1, x))
If destColumn <= destRange.Columns.Count And destColumn > 0 Then
destRange.Item(y, destColumn).Value = sourceRange.Item(y + 2, x).Value End If End If Next x Next y
destRange.Rows.EntireRow.AutoFitApplication.Calculation = calSwitch
rsT.Close Set rsT = Nothing cn.Close Set cn = Nothing
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.36.207.34
1F：→ MOONRAKER:code格式滿有創意的。 05/27 13:10