小编Its*_*ped的帖子

使用VBA将Excel工作表的一部分(部分)导出为CSV

我知道导出到csv的次数已经被问了大约十亿次,而且我已经完成了很多次,但是我想弄清楚如何只将片材的一部分导出到csv而不循环遍历每一行或每一行并将它们单独打印到文件中.我需要保持本地格式作为一个要求.

Sheets("PI_OUTPUT").Copy
Run Code Online (Sandbox Code Playgroud)

这会复制整张纸,疣和所有.我在第1到20000行和A到X列中有公式,但在处理完数据后有可变数量的空白行.如果我使用复制方法,我会复制所有空行,这些行作为逗号行输出.,,,,,,,等....

我尝试使用activesheet.deleterows在复制后修剪输出文件,但这给了我一个错误.

我尝试过使用:

Worksheets("PI_OUTPUT").Activate
Sheets("PI_OUTPUT").Range("A2:X5000").Copy
Run Code Online (Sandbox Code Playgroud)

我试图使用另一个建议:specialcells(xlCellTypeVisible),但我似乎无法让它工作:

Set rng = Sheets("PI_OUTPUT").SpecialCells(xlCellTypeVisible)
Set Workbook = Workbooks.Add
With Workbook
    Call rng.Copy
    .Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues
    .SaveAs filename:=MyPath & MyFileName, FileFormat:=xlCSV
    .Close
End With
Run Code Online (Sandbox Code Playgroud)

更糟糕的是,我必须在多个工作表中执行此操作,所有工作表都有可变数量的列,行,所有这些都保存到单独的文件中,所以我正在寻找可以重复多次的内容.我有一个文件夹路径弹出来选择位置,并有一个动态构造的文件名,但复制/粘贴避免提交给我.

目前正在撕毁无数谷歌搜索后我的头发,任何帮助感激不尽.

csv excel vba export excel-vba

6
推荐指数
1
解决办法
1万
查看次数

与 xsl:sort 一起使用前置兄弟

我正在尝试将前同级和后同级与记录的子集一起使用,并对其进行排序。前面/后面从原来的xml顺序带回值的问题:

<Salaries>
    <Salary>
        <Base>1000</Base>
        <CreatedDate xmlns:d7p1="http://schemas.datacontract.org/2004/07/System">
            <d7p1:DateTime>2016-01-09T14:38:54.8440764Z</d7p1:DateTime>
            <d7p1:OffsetMinutes>0</d7p1:OffsetMinutes>
        </CreatedDate>
    </Salary>
    <Salary>
        <Base>2000</Base>
        <CreatedDate xmlns:d7p1="http://schemas.datacontract.org/2004/07/System">
            <d7p1:DateTime>2015-01-09T14:38:54.8440764Z</d7p1:DateTime>
            <d7p1:OffsetMinutes>0</d7p1:OffsetMinutes>
        </CreatedDate>
    </Salary>
    <Salary>
        <Base>3000</Base>
        <CreatedDate xmlns:d7p1="http://schemas.datacontract.org/2004/07/System">
            <d7p1:DateTime>2017-01-09T14:38:54.8440764Z</d7p1:DateTime>
            <d7p1:OffsetMinutes>0</d7p1:OffsetMinutes>
        </CreatedDate>
    </Salary>
</Salaries>
Run Code Online (Sandbox Code Playgroud)

当我使用带有 ac# 函数的 for-each (Salaries/Salary) 下的排序将偏移分钟添加到日期中并转换为长数 201701010000 例如(以使 xslt 中的操作更容易)。

<xsl:sort select="number(cs:Convertdatetolong(cs:AddOffsetMinutes(substring(p:CreatedDate/d5p1:DateTime,1,19),p:CreatedDate/d5p1:OffsetMinutes)))" order="ascending"/>
Run Code Online (Sandbox Code Playgroud)

排序工作完美,我按以下顺序获取记录:

  • 2000年
  • 1000
  • 3000

如果我使用前兄弟/前(和后),问题就会出现。我希望第一条记录 (2000) 没有前面的记录,最后一条记录 (3000) 没有后续记录。但是,当我使用前/后时,我从原始 XML 中获取上一条记录和下一条记录:

  • 2000(前 - 1000 / 后 - 3000)
  • 1000(之前 - / 之后 - 2000)
  • 3000(前 - 2000 / 后 - )

我希望能够与之前的记录(按排序顺序)和当前记录(按排序顺序)进行比较:

  • 2000(前 - / 后 - 1000)
  • 1000(前 - …

sorting xslt

3
推荐指数
1
解决办法
949
查看次数

标签 统计

csv ×1

excel ×1

excel-vba ×1

export ×1

sorting ×1

vba ×1

xslt ×1