第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號(hào)安全,請及時(shí)綁定郵箱和手機(jī)立即綁定
已解決430363個(gè)問題,去搜搜看,總會(huì)有你想問的

通過VBA從另一個(gè)工作簿復(fù)制數(shù)據(jù)

通過VBA從另一個(gè)工作簿復(fù)制數(shù)據(jù)

伙計(jì)們,這就是我想要做的,我在做這件事時(shí)遇到了一些麻煩。我有一本工作簿,我想從做類似這樣的不同文件中收集數(shù)據(jù)。Do While THAT_DIFFERENT_FILE_SOMEWHERE_ON_MY_HDD.Cells(Rand, 1).Value <> "" And Rand < 65536        then 'I will search if the last row in my main worksheet is in this file... End Loop           如果是,我將退出While循環(huán),如果不是,我將復(fù)制所有內(nèi)容。實(shí)際上,這將無法按我希望的方式工作,但我不會(huì)在尋找合適的算法時(shí)遇到麻煩。我的問題是我不知道如何訪問不同的工作簿。
查看完整描述

3 回答

?
HUH函數(shù)

TA貢獻(xiàn)1836條經(jīng)驗(yàn) 獲得超4個(gè)贊

您可能喜歡函數(shù)GetInfoFromClosedFile()


編輯:由于上述鏈接似乎不再起作用,因此我添加了備用鏈接1 和備用鏈接2 +代碼:


Private Function GetInfoFromClosedFile(ByVal wbPath As String, _

    wbName As String, wsName As String, cellRef As String) As Variant

Dim arg As String

    GetInfoFromClosedFile = ""

    If Right(wbPath, 1) <> "" Then wbPath = wbPath & ""

    If Dir(wbPath & "" & wbName) = "" Then Exit Function

    arg = "'" & wbPath & "[" & wbName & "]" & _

        wsName & "'!" & Range(cellRef).Address(True, True, xlR1C1)

    On Error Resume Next

    GetInfoFromClosedFile = ExecuteExcel4Macro(arg)

End Function


查看完整回答
反對 回復(fù) 2019-11-19
?
慕的地8271018

TA貢獻(xiàn)1796條經(jīng)驗(yàn) 獲得超4個(gè)贊

將數(shù)據(jù)從工作簿復(fù)制到另一個(gè)工作簿的最佳(也是最簡單)方法是使用Excel的對象模型。


Option Explicit

Sub test()

    Dim wb As Workbook, wb2 As Workbook

    Dim ws As Worksheet

    Dim vFile As Variant


    'Set source workbook

    Set wb = ActiveWorkbook

    'Open the target workbook

    vFile = Application.GetOpenFilename("Excel-files,*.xls", _

        1, "Select One File To Open", , False)

    'if the user didn't select a file, exit sub

    If TypeName(vFile) = "Boolean" Then Exit Sub

    Workbooks.Open vFile

    'Set targetworkbook

    Set wb2 = ActiveWorkbook


    'For instance, copy data from a range in the first workbook to another range in the other workbook

    wb2.Worksheets("Sheet2").Range("C3:D4").Value = wb.Worksheets("Sheet1").Range("A1:B2").Value

End Sub


查看完整回答
反對 回復(fù) 2019-11-19
  • 3 回答
  • 0 關(guān)注
  • 2904 瀏覽
慕課專欄
更多

添加回答

舉報(bào)

0/150
提交
取消
微信客服

購課補(bǔ)貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動(dòng)學(xué)習(xí)伙伴

公眾號(hào)

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號(hào)