VBA编程中如何调用其他文件夹下工作簿里的数据

Dim wb As Workbook

ApplicationScreenUpdating = False

Set wb = WorkbooksOpen(要调用的工作薄的路径及名称）

‘路径及名称格式如下 ThisWorkbookPath & "\Backxlsx")

With wbSheets("表名 不是工作薄名")range(要调用的单元格）

对调用单无格的 *** 作

End With

wbClose 1

ApplicationScreenUpdating = True

凑活看吧，既然知道vba 应该也会修改了

    Dim index As Integer

    Dim offset As Integer

    offset = 100 '需要100行

    Dim rowcnt As Integer, colcnt As Integer

    Dim rng As Range

    rowcnt = Sheets("Sheet1")Range("a1")CurrentRegionRowsCount

    colcnt = Sheets("Sheet1")Range("a1")CurrentRegionColumnsCount

    index = Rnd()  ((rowcnt - offset) - 1) + 1

    Set rng = Range("a1")offset(index - 1, 0)Resize(offset, colcnt)

    'rngSelect

    rngCopy

    Sheets("Sheet2")Range("a1")PasteSpecial (xlPasteAll)

    'DebugPrint index

End Sub

你删除后的格子会变空对吗？如果是的话代码如下

'随机按钮代码如下:

ar = Range("a2:j2")

'先将去掉除去后的数字组合

For i = 1 To 10

If Not ar(1, i) = "" Then

af = af & ar(1, i)

End If

Next

'取出5个随机数

ReDim cm(1 To 1, 1 To 5)

For i = 1 To 5

ad = Mid(af, ApplicationRandBetween(1, Len(af)), 1)

af = Replace(af, ad, "")

cm(1, i) = ad

Next

Range("a1:e1") = cm

Excel如果用VBA应该可以做到。但是即使用VBA也是编程，理论上也应该给劳务费。都要花不少功夫去做的，不是写个简单的函数处理些简单的数据。帮别人写简单的公式，通常我也不要钱，一般找我写公式的人还会给打赏一点点红包表示感谢的，毕竟是需要动脑筋才能产生的效果，提高工作效率的。如果写复杂的公式我还要收费呢。写一个较为复杂的功能，可能需要构思很长时间，还需要逐步验证，需要考虑部分会不会出现bug，或者其他错误，还要测试在各种条件下会不会出问题。费时间费精力，为什么不能要劳务费？Excel是一个灵活送数据库，可计算可编程，即使能实现这些功能，也需要耗费脑细胞去构思，需要动手写，需要反复测试验证的。不要说用Excel能做出就没价值。

当然，用其他编程能实现，也当然该给劳务费。花时间精力达成其要求，凭什么不能收费？它能说，我的小麦用人就能收割，然后它用别人收割机收割就可以不给钱了？

以上就是关于VBA编程中如何调用其他文件夹下工作簿里的数据全部的内容，包括:VBA编程中如何调用其他文件夹下工作簿里的数据、求VBA代码，VBA实现：自动在sheet1中随机抽取连续的100行。、VBA,如何从几个数中随机提取五个数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！