VBAコードのヘルプが必要です.

こんにちは、

VBAコードのヘルプが必要です.

私はオンラインで検索し、いくつかのコードを試しましたが、うまくいくことを見つけるのに問題がありました.

私がやりたいことは、下の太字の部分に "Pastevalue"関数を挿入することです(外部ファイルからの値の数式を指定したデータをインポートするため)

'Sheet1の使用セルのみからのデータをコピーする

WBopen.Sheets(「貿易債権」).を有効にする>

DatalastCell=セル(Rows.Count、 "V")を設定します.end(xlup)

set rngdatapl= range( "a2"、datalastcell)

'Sheet2のデータを新しいブックに貼り付けます.

LASTROW= WSDATAPL.Cells(Rows.Count、 "A").終了(XLUP).ROW

rngdatapl.copy宛先:= wsdatapl.cells(LASTROW + 1,1)

以下は、太字の前のVBS入力の一部を示しています.

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

サブImportData()

範囲

ワークブック

ワークシートとしてのwsopenpl

Worksheet

ワークシートとしてのDim Wsopenoi

ワークシートとしてムラwsopenoe

Worksheet

ワークシートとしてのムラwsopensk

ワークシートとしてのwsopenlt

Worksheet

Worksheet

ワークシートとしてのムラwsopennr

ワークシートとしての薄暗いWSOPENAR

ワークシートとしてのDIM WSOPENAM

ワークシートとしてのムラwsopenin

Worksheet

ワークブック

ワークシートとしてのwsdatactrl

ワークシートとしてのDIM WSDATAMP

WSDATAPLをワークシートとしてDIM WSDATAPL

ワークシートとしてのwsdatapc

ワークシートとしてのwsdataoi

ワークシートとしてのwsdataoe

ワークシートとしてのDIM WSDATAST

ワークシートとしてのwsdatask

ワークシートとしてのwsdatalt

ワークシートとしてのwsdatalf

ワークシートとしてwsdataapを薄暗くする

Worksheet

ワークシートとしてムラwsdataar

ワークシートとしてのムラwsdataAm

ワークシートとしてムラwsdatain

ワークシートとしてのwsdatapr

範囲

範囲

範囲

範囲

範囲

範囲

範囲

範囲

範囲

範囲

範囲

範囲

範囲

範囲

範囲

ムードLASTROW長い

範囲

DIM ConsollAstrowPC長い

Dim Strcontrol文字列

LONG

application.ScreenUpdating= false

strcontrol= "失敗"

「このワークブックとこのWorkbook.Activesheet」

wbdata= thisworkbook

SET WSDATACTRL= WBDATA.SSHEETS( "Control")

wsdatamp= wbdata.sheets( "main_page")

wsdatapl= wbdata.sheets( "貿易債権")

wsdatapc= wbdata.sheets(「債権」)

wsdataoi= wbdata.sheetsを設定します( "貿易の給付))

wsdataoe= wbdata.sheets( "未払金")

wsdatast= wbdata.sheetsを設定します( "stkout no inv")

SET WSDATASK= WBDATA.SHEETS(「株式エージング」)

wsdataap= wbdata.sheets( "ap accrual")

wsdatalt= wbdata.sheets( "Loan to")

wsdatalf= wbdata.sheetsを設定します( "Loan from")

SET WSDATANR= WBDATA.SSHEETS(「メモ債権」)

wsdataar= wbdata.sheets(「前進領収書」)

WSDATAAM= WBDATA.SSHEETS(「前払い」)

wsdatain= wbdata.sheetsを設定します( "invがstk outしません)

wsdatapr= wbdata.sheets( "prov)を設定します(疑わしいデッグの場合)

set rngfullname= wsdatactrl.range( "H5")

'workbboksが常に同じディレクトリにある場合は、

'thisworkbook.path&application.pathseparator&filename&".xlsm"

エラーでerrorroltine

'ワークブックとオブジェクトを両方のワークブックとワークシートに設定するワークブックを開く

wbopen= workbooks.open(rngfullname&".xlsm"、updateLinks:= false)

wsopenpl= wbopen.sheets( "貿易債権")

wsopenpc= wbopen.sheets(「債権」)

wsopenoi= wbopen.sheets( "Trade Payables")

wsopenoe= wbopen.sheets( "未払金")

SET WSOPENST= WBOPEN.SHEETS( "STK OUT NO INV")

SET WSOPENSK= WBOPEN.SHEETS(「株式老化」)

SET WSOPENLT= WBOPEN.SHEETS( "LOAN TO")

set wsopenlf= wbopen.sheets( "Loan from")

wsopenap= wbopen.sheetsを設定します( "AP accrual")

set wsopennr= wbopen.sheets( "Note Receivable")

wsopenar= wbopen.sheetsを設定します(「前進領収書」)

wsopenam= wbopen.sheetsを設定します(「前払い」)

wsopenin= wbopen.sheetsを設定します( "invがstk out")

wsopenpr= wbopen.sheetsを設定します( "dep.prov.upful debts")

'Sheet1の使用セルのみからのデータをコピーする

WBopen.Sheets(「貿易債権」).を有効にする>

DatalastCell=セル(Rows.Count、 "V")を設定します.end(xlup)

set rngdatapl= range( "a2"、datalastcell)

'Sheet2のデータを新しいブックに貼り付けます.

LASTROW= WSDATAPL.Cells(Rows.Count、 "A").終了(XLUP).ROW

rngdatapl.copy宛先:= wsdatapl.cells(LASTROW + 1,1)

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

あなたの助けに感謝します！

g'day！