作者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