转置表格和数据

时间:2019-06-06 11:24:23

标签: excel vba

我想将数据从SAP复制到表中,我可以复制它们,但是表移到右边。

  Sub StartExtract()
  Application.WorksheetFunction.Transpose (X)
' Set the sid and client to connect to
  W_System = "P10320"
' Run the GUI script
  RunGUIScript
' End the GUI session
  objSess.EndTransaction

 ' Switch to the worksheet where the data is loaded to
   Application.WorksheetFunction.Transpose (BGSOCIAL)
   Sheets("BGSOCIAL").Select

' Load the CSV file
  OpenCSVFile


' Update the time and date on the control worksheet
  Sheets("Extraction").Select
  Cells(2, 2).Value = Now()

我认为这是代码的那一部分是一个问题。

我想将它们复制到表格中

the data is copied next to it

  • 另一部分代码

      With ActiveSheet.QueryTables.Add(Connection:= _
     "TEXT;" & fpath & "\" & ffilename, Destination:=Range("$A$1"))
     .Name = "text"
     .FieldNames = True
     .RowNumbers = False
     .FillAdjacentFormulas = False
     .PreserveFormatting = True
     .RefreshOnFileOpen = False
     .RefreshStyle = xlInsertDeleteCells
     .SavePassword = False
     .SaveData = True
     .AdjustColumnWidth = True
     .RefreshPeriod = 0
     .TextFilePromptOnRefresh = False
     .TextFilePlatform = 850
     .TextFileStartRow = 1
     .TextFileParseType = xlDelimited
     .TextFileTextQualifier = xlTextQualifierDoubleQuote
     .TextFileConsecutiveDelimiter = False
     .TextFileTabDelimiter = True
     .TextFileSemicolonDelimiter = False
     .TextFileCommaDelimiter = False
     .TextFileSpaceDelimiter = False
     .TextFileOtherDelimiter = "|"
     .TextFileColumnDataTypes = Array(1)
     .TextFileTrailingMinusNumbers = True
     .Refresh BackgroundQuery:=False
    

    结尾为

0 个答案:

没有答案