Question

我在为SAP LSMW创建.txt加载文件时遇到问题。代码从打开的工作簿中获取数据，然后按各种条件填充各种.txt文件 - 主要是通过标题。该文件运行良好，但我想根据“BUKRS”下的列中的数据将数据移动到两个单独的加载文件中。这就是Hlookup无法查找各种值的问题。此外，所有数据仅保存到文件“05-Vend-Loadcache（No WHTAX）.xls”我想将文件除以“BUKRS”列中的成本中心数字。这些是9000,5500,6200,8400,8600,8500。这些应该转到“06-Vend-Loadcache（WHTAX）.xls”。不幸的是它不起作用，只有“05-Vend-Loadcache（No WHTAX）.xls”被填充。我不知道为什么？请问你能帮帮我吗？

Sub VENDOR()
'CC3200 (LSMW1)  LNRZB (LSMW4) Line 60 for 5500 ....

CCD = Application.WorksheetFunction.HLookup("BUKRS", DTA.Range("A1:IV2"), 2, 0)
CCE = DTA.Cells(1, 60)
WFNA = "05-Vend-Loadcache(No WHTAX).xls"


Select Case CCD
Case 9000, 5500, 6200, 8400, 8600, 8500
WFNA = "06-Vend-Loadcache(WHTAX).xls"
End Select

SHT = "BISOVSH"
DATACHK = 1

If ((CCE = "" Or CCE = "CC3200" Or CCE = "VERKF" Or CCE = "TELF1" Or CCE = "KZRET") And WFNA = "05-Vend-Loadcache(No WHTAX).xls") Then
Call EXPORTDTA
Else
'do nothing as not to Export
 End If

If CCE = "LNRZB" And WFNA = "06-Vend-Loadcache(WHTAX).xls" Then
Call EXPORTDTA
Else
'do nothing as not to Export
End If
End Sub

VBA Excel - 无法将正确的数据插入到loadfile中

0 个答案: