我最近问了另一个问题,这帮助我在“组合框”用户表单中达到了一定的程度,但现在需要更多的帮助才能让我完成这一任务。
我创建了一个用户表单,它有2个组合框,1个显示所有打开的Excel工作簿,1个显示所选工作簿的工作表。
我尝试创建一个按钮,该按钮使用在工作表框下选择的值从指定的工作表中复制数据。
我担心我的知识不是很好,因为我刚开始,虽然我认为我在某个地方接近正确的路线。
这是我到目前为止得到的代码:
Option Explicit
Dim wb As Workbook
Dim ws As Worksheet
Private Sub Cb_Wb_Change()
Me.Cb_Ws.Clear
On Error Resume Next
For Each ws In Workbooks(Me.Cb_Wb.Value).Worksheets
Me.Cb_Ws.AddItem ws.Name
Next ws
End Sub
Private Sub CommandButton1_Click()
Dim Worksheets as (Cb_Ws.Value)
Worksheets.Range("X77:X84").Copy
End Sub
Private Sub UserForm_Initialize()
For Each wb In Application.Workbooks
Me.Cb_Wb.AddItem wb.Name
Me.Label2.Caption = "Select WorkSheet:"
Me.Label1.Caption = "Select Workbook:"
Next wb
End Sub
这是处理对象的错误方法。这就是你想要的吗?
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = Workbooks(Cb_Wb.Value).Sheets(Cb_Ws.Value)
ws.Range("X77:X84").Copy
End Sub
我使用这段代码将工作簿中的每一张工作表复制到一个新的工作簿中,它工作得很好,但它颠倒了工作表的顺序,是否有任何办法阻止它这样做? 我正在复制所有的工作表,这样我就可以将它保存为不同的文件扩展名,这是我发现唯一有效的方法。
我正在制作一个带有两个组合框的excel用户表单。一个combox从名为“CompaniesandSubsidiaries”的sheet 3(A列)中检索数据。然后在第一个组合框的基础上,第二个组合框检索子类别数据。但问题是A列有重复数据。我附上了一张图片。 我想说的是: 我分别为“A 列和 B”命名的公司和提供商制作了一个公式。但它重复了这些价值观。我不要。 我想要的是从sheet3中动态获取第
我目前有一个工作簿,可以在excel中打开多个txt文件,过滤所有数据,只从中导入我需要的内容。每次导入都会进入不同的excel表“1”、“2”、“3”……到“31”(天)。 所有工作表具有相同的列数,但行数不同。我需要做的是将所有工作表合并到同一工作簿中的“ALL”工作表中。 帮助?!
这里是VBA新手。 谢谢你的教育!
我得到了这个错误: 工作簿已包含此名称的工作表 行应该检查工作簿是否已经包含此名称的工作表,但它不工作。我仍然有错误。 谢谢你的帮助!