用VBA代码Application.GetOpenFilename手动选取某个工作薄的某个sheet

山海风云轩 · 发表于 2023-4-19 14:01

如题，求助大佬
用VBA代码Application.GetOpenFilename手动选取某个工作薄的某个sheet，

现在是能用代码选取打开某个工作簿的指定sheet，比如sheet(1)
但是工作中，有时候需要选取sheet1,有时候需要选取sheet1,
请问怎么设置？

3190496160 · 发表于 2023-4-19 14:21

选择文件后，代码遍历所有工作表获取工作表名称到一个列表框中，然后再在列表框中选择需要的工作表

山海风云轩 · 发表于 2023-4-19 14:49

有道理，那怎么写了

ykcbf1100 · 发表于 2023-4-19 15:06

山海风云轩发表于 2023-4-19 14:49
有道理，那怎么写了

你不上附件，别人怎么写

山海风云轩 · 发表于 2023-4-19 15:19

ykcbf1100 发表于 2023-4-19 15:06
你不上附件，别人怎么写

哈哈哈，就是感觉是个通用代码，所有没附件，现在上传一个，里面可以读取只要一个sheet的文件，但是工作中有时候有多个sheet,请大佬帮忙帮忙

山海风云轩 · 发表于 2023-4-19 15:20

这是附件，里面有简单应用场景

ykcbf1100 · 发表于 2023-4-19 15:22

山海风云轩发表于 2023-4-19 15:19
哈哈哈，就是感觉是个通用代码，所有没附件，现在上传一个，里面可以读取只要一个sheet的文件，但是工作 ...

没有附件，即便别人给你写了代码，你还是要回来问的，你信不？
没有附件，别人都不愿意看。

ykcbf1100 · 发表于 2023-4-19 15:34

山海风云轩发表于 2023-4-19 15:20
这是附件，里面有简单应用场景

sheet1这样的表名，可以这样表示的：if sheets.codename=sheet1 then

3190496160 · 发表于 2023-4-19 23:18

Private Sub CommandButton1_Click()
Dim STR As String
STR = Application.GetOpenFilename("EXCEL文件(*.xls*), *.xls*")
If STR = "False" Then Exit Sub
Set wb = Workbooks.Open(STR)
Dim rr()
ReDim rr(1 To wb.Worksheets.Count, 1 To 1)
For Each SH In wb.Worksheets
n = n + 1
rr(n, 1) = SH.Name
Next SH
ListBox1.List = rr
ThisWorkbook.Activate
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
      xh = i
      Exit For
End If
Next i
If xh <> "" Then
Set SH = ThisWorkbook.Worksheets("配方排序整理")
lastRow = SH.Cells(SH.Rows.Count, 2).End(xlUp).Row
If lastRow > 2 Then SH.Range("A3:H" & lastRow).EntireRow.Delete '删除所选区域所在的整行
mc = ListBox1.List(xh, 0)
Set SHt = wb.Worksheets(mc)
With SHt
      lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
      .Range("A3:G" & lastRow).EntireRow.Copy SH.Cells(3, "A")
End With
wb.Close False
End
End If
End Sub

3190496160 · 发表于 2023-4-19 23:19

双击选择

选取任一sheet.rar (25.16 KB, 下载次数: 19)

		自动登录	找回密码
密码			免费注册

[求助] 用VBA代码Application.GetOpenFilename手动选取某个工作薄的某个sheet

评分

评分