[VBA ] 已有檔案資訊如何修改至另一sheet中

看板Visual_Basic作者smoothelvis (ELVIS)時間14年前 (2011/05/27 01:54)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串1/1

請教各位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