通过宏移动数据

确定首先，所有的数据最初都在一个xlsm文件中。一个宏运行（通过任务计划）并将选项卡变为csv文件。完美的工作。通过宏移动数据

第二我有一个网站，读取数据，并显示在一个图表。我用来完成这项工作的JavaScript从列中读取数据。完美的作品。

现在解决问题...通过宏导出的csv文件不能正确读取。这是由于第一行和最后一行数据。第一行我不需要，但是我可以使用最后一行。

所以这里我想问我... 1.我如何删除第一行 2.是否有一种方法可以将行移动到下一列。

这就是现在的样子。

Auto+Hide Fit  Fit  Fit 
      No.  Name Comm MTD 
      E00043 Julie  2 
      E00143 Jodie  1 
      E00198 Jason  0 
      E00289 Ronald  0 
      E00345 Patimah 2 
      E00356 Jenny  1 
      TARGET    6

我希望它看起来像这样。

No.  Name Comm MTD TARGET 
    E001 Julie  2  6 
    E002 Jodie  1 
    E003 Jason  0 
    E004 Ronald  0 
    E005 Patimah 2 
    E006 Jenny  1

我不想在可能的情况下手动编辑数据，因为此过程旨在实现自动化。

任何帮助会感激

UPDATE

这是我当前的代码。

Sub Macro3() 
' 
' Macro3 Macro 
' 
' 
    Application.DisplayAlerts = False 
    Sheets("page 1").Select 
    ActiveWorkbook.SaveAs Filename:= _ 
     "\\weburl.com.au\data\page 1.csv" _ 
     , FileFormat:=xlCSV, CreateBackup:=False 
    Sheets("page 2").Select 
    ActiveWorkbook.SaveAs Filename:= _ 
     "\\weburl.com.au\data\page 2.csv" _ 
     , FileFormat:=xlCSV, CreateBackup:=False 
    Sheets("page 3").Select 
    ActiveWorkbook.SaveAs Filename:= _ 
     "\\weburl.com.au\data\page 3.csv" _ 
     , FileFormat:=xlCSV, CreateBackup:=False 
    Sheets("page 4").Select 
    ActiveWorkbook.SaveAs Filename:= _ 
     "\\weburl.com.au\data\page 4.csv" _ 
     , FileFormat:=xlCSV, CreateBackup:=False 
    'ActiveWorkbook.Saved = False 
    'Application.Quit 
End Sub

那么我该如何添加删除行命令呢。

对不起，我不知道这种语言很好。

来源

2013-08-27 Brad

显示宏可能有帮助。或者，只需在导出完成后删除第一行。 –

添加这一权利“Application.ScreenUpdating =假”

For pageNumber = 1 To 4 
    Sheets("page " & pageNumber).Rows(1).Delete 
    Sheets("page " & pageNumber).Columns(1).Delete 
    Sheets("page " & pageNumber).Range("D1").Value = "TARGET" 
    Sheets("page " & pageNumber).Range("D2").Formula = "=SUM(C2:C6)" 
    Sheets("page " & pageNumber).Range("D2").Calculate 
    Sheets("page " & pageNumber).Range("D2").Value = Sheets("page " & pageNumber).Range("D2").Value 
Next pageNumber

再次

后，不知道任何更多关于你的设置，某些范围可能需要进行修改。

虽然这可能需要调整以适应不同大小的数据。

也只是为了安全，有时当我输出数据时，我喜欢做一种内联复制粘贴来将公式数据转换为数值数据 Range（“D2”）。Value = Range（“D2”）。值

这将用原始值替换单元格（公式）的内容。

来源

2013-08-27 04:25:54 chiliNUT

就像这段代码一样，我无法让它为我工作。正如我所说，我对这种语言不太擅长。我用用于输出csv文件的宏更新了原始文章。如果你能告诉我如何添加删除功能，我将非常感激。 – Brad

你想在所有4张纸上这样做，或者只是其中之一？你说你不能让代码工作，你可以发布你插入我的代码的宏的版本吗？这将使诊断更容易。 – chiliNUT

多数民众赞成我不知道的事情是代码需要去。所以我一直在放置代码并尝试它。是的，我需要所有4张床单。当我看着它，如果我可以从一个删除，我可以删除所有...是的。 – Brad

通过宏移动数据

回答

相关问题