[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
你这个是直接从PS里拿来的吧 变量改一下 多个Sheet就改这里是多少就改多少  $wb.Sheets.Item(2),文件不在同一个的话 就少一个文件 复制上一行数据的话 参照
....
$val = $dsr.Cells.Item($i, 1).Offset(-1, 0) 这里是上一行的值
$dsr.Cells.Item($i, 1).Value2 = $val.Value2 这里是赋值
....

TOP

回复 11# terse


    另外批次文件插入怎么修改呀!现单文件可以修改;如果EXCEL 里面俩Sheet的话,怎么插入到第二个Sheet
是不是这个代码对XLS 文件不适用啊 怎么修改能兼容XLS文件的;如果去掉“”4)填充后B列空白位置填充为上一行数据 这个功能“”怎么修改啊

TOP

本帖最后由 haichuan5121 于 2023-5-17 18:23 编辑

回复 11# terse


   大神怎么批量处理EXCEL;咱代码能单个插入,另外如果EXCEL是多Sheet组成怎么插到第二个sheet
$dws = $dwb.Sheets.Item(1)改成$dws = $dwb.Sheets.Item(2)?  是这样的 可以了。。。


第 1 行的 <# 和第 20 行的 #> 是注释的开始和结束标记,表示这段代码是一个注释块。在代码执行时,这个注释块会被忽略掉。这种写法可以让这段代码既可以作为注释,又可以作为 PowerShell 脚本来执行。

第 2 行的 @echo off 表示关闭命令行窗口的回显功能。

第 3 行的 powershell -noprofile -NoLogo "iex (${%~f0} | out-string)" 表示在 PowerShell 中执行代码。其中,-noprofile 表示不加载 PowerShell 的配置文件;-NoLogo 表示不显示 PowerShell 的标志;${%~f0} 表示获取当前脚本的完整路径;out-string 表示将输出转换为字符串;iex 表示执行字符串作为 PowerShell 脚本。

第 4 行的 pause 表示在代码执行完毕后暂停,等待用户按下任意键继续。

第 5 行的 $exit 表示退出 PowerShell。

第 7~28 行是一个名为 get-data 的函数,用来查找指定内容并插入数据。该函数接受 7 个参数:$startrow、$startcol、$endrow、$endcol、$pat、$file1 和 $file2。其中,$startrow、$startcol、$endrow 和 $endcol 表示要查找的单元格范围;$pat 表示要查找的内容;$file1 表示要插入数据的 Excel 文件;$file2 表示要查找内容的 Excel 文件。

第 9~11 行创建一个 Excel 应用程序对象,并将其设置为不可见。

第 12~13 行打开要查找内容的 Excel 文件,并获取第一个工作表对象。

第 14 行使用 Range 方法获取指定的单元格范围。

第 15~16 行打开要插入数据的 Excel 文件,并获取第一个工作表对象。

第 17~18 行使用 UsedRange 属性获取已使用的单元格范围,并在其中查找指定内容。

第 19~27 行根据查找到的单元格位置,插入指定行数的数据。

第 29~32 行设置 Excel 的一些选项,包括关闭警告对话框和关闭工作簿时不保存更改。

第 33~34 表示释放 Com 对象,以释放 Excel 应用程序的资源。

第 36~38 表示调用 get-data 函数三次,分别查找不同的单元格范围,并在另一个 Excel 文件中插入指定行数的数据。

需要注意的是,这段代码使用了 PowerShell 的 COM 对象来操作 Excel 文件,因此需要在运行之前确保计算机上已安装 Microsoft Office。此外,如果你的计算机上安装的是 64 位的 Office,则需要使用 64 位的 PowerShell 来运行此脚本。

TOP

本帖最后由 haichuan5121 于 2023-5-17 17:45 编辑

回复 12# haichuan5121
。另外批次文件插入怎么修改呀!现单文件可以修改;如果EXCEL 里面俩Sheet的话,怎么插入到第二个Sheet
是不是这个代码对XLS 文件不适用啊 怎么修改能兼容XLS文件的;如果不想替换4)填充后B列空白位置填充为上一行数据 这个功能怎么修改啊

TOP

$insertRow !insertRow!

TOP

@echo off
setlocal enabledelayedexpansion

set "file1=excel1.xlsx"
set "file2=excel2.xlsx"
set "file3=excel3.xlsx"

for %%f in ("%file1%" "%file2%" "%file3%") do (
    echo Processing "%%~nxf"...
    set "foundA=false"
    set "foundB=false"
    for /f "tokens=1,4 delims=," %%a in ('type "%%~f" ^| findstr /r /c:",[ABCD]$"') do (
        if "%%b"=="A" (
            set "foundA=true"
            set "insertRow=%%a"
        ) else if "%%b"=="B" (
            set "foundB=true"
            set "replaceCell=%%a"
        )
    )
    if !foundA! (
        echo Inserting rows in "%%~nxf"...
        powershell -Command "$excel = New-Object -ComObject Excel.Application; $workbook = $excel.Workbooks.Open('%%~ff'); $worksheet = $workbook.Worksheets.Item(1); $row = $worksheet.Cells.Item($insertRow).EntireRow; $row.Insert(); $worksheet.Cells.Item($insertRow+1,1).Value = 'New row 1'; $worksheet.Cells.Item($insertRow+2,1).Value = 'New row 2'; $worksheet.Cells.Item($insertRow+3,1).Value = 'New row 3'; $workbook.Save(); $workbook.Close(); $excel.Quit();"
    )
    if !foundB! (
        echo Replacing cell in "%%~nxf"...
        powershell -Command "$excel = New-Object -ComObject Excel.Application; $workbook = $excel.Workbooks.Open('%%~ff'); $worksheet = $workbook.Worksheets.Item(1); $cell = $worksheet.Cells.Item(!replaceCell!); $cell.Value = 'New value'; $workbook.Save(); $workbook.Close(); $excel.Quit();"
    )
)
这个怎么改

TOP

本帖最后由 terse 于 2023-5-16 10:46 编辑

运行前 请备份文件
  1. <# :
  2. @echo off
  3. powershell -noprofile -NoLogo "iex (${%~f0} | out-string)"
  4. pause$exit
  5. #>
  6. function get-data([int]$startrow, [int]$startcol, [int]$endrow, [int]$endcol, [string]$pat, [string]$file1, [string]$file2) {
  7. $excel = New-Object -ComObject Excel.Application
  8. $excel.Visible = $false
  9. $wb = $excel.Workbooks.Open($file2)
  10. $ws = $wb.Sheets.Item(1)
  11. $sr = $ws.Range($ws.Cells.Item($startrow, $startcol), $ws.Cells.Item($endrow, $endcol))
  12. $sd = $sr.Value2
  13. $dwb = $excel.Workbooks.Open($file1)
  14. $dws = $dwb.Sheets.Item(1)
  15. $fc = $dws.UsedRange.Find($pat)
  16. if ($fc -ne $null) {
  17. $rown = $fc.Row
  18. for ($i = 0; $i -le $endrow-$startrow; $i++) {
  19. $dws.Rows.Item($rown + 1).EntireRow.Insert()
  20. }
  21. $dsr = $dws.Range($dws.Cells.Item($rown + 1, $startcol), $dws.Cells.Item($rown + 1 + ($endrow - $startrow), $endcol))
  22. $dsr = $dsr.Resize($sr.Rows.Count, $sr.Columns.Count)
  23. $dsr.Value2 = $sd
  24. $sr.Copy()
  25. $dsr.PasteSpecial(-4122)
  26. for ($i = 1; $i -le $dsr.Rows.Count; $i++) {
  27. $val = $dsr.Cells.Item($i, 1).Offset(-1, 0)
  28. $dsr.Cells.Item($i, 1).Value2 = $val.Value2
  29. }
  30. }
  31. $excel.DisplayAlerts = $false
  32. $wb.Close($false)
  33. $dwb.Close($true)
  34. $excel.Quit()
  35. }
  36. $path=$PWD.Path
  37. $file1 = "$path\元数据.xlsx"
  38. $file2 = "$path\插入内容.xlsx"
  39. get-data -startrow 1 -startcol 2 -endrow 4 -endcol 9  -pat 1009 -file1 $file1 -file2 $file2
  40. get-data -startrow 6 -startcol 2 -endrow 8 -endcol 9  -pat 1018 -file1 $file1 -file2 $file2
  41. get-data -startrow 10 -startcol 2 -endrow 11 -endcol 9  -pat 1023 -file1 $file1 -file2 $file2
复制代码
加一个,换为复制对象
  1. <# :
  2. @echo off
  3. powershell -noprofile -NoLogo "iex (${%~f0} | out-string)"
  4. pause$exit
  5. #>
  6. function get-data([int]$startrow, [int]$startcol, [int]$endrow, [int]$endcol, [string]$pat, [string]$file1, [string]$file2) {
  7. $excel = New-Object -ComObject Excel.Application
  8. $excel.Visible = $false
  9. $wb = $excel.Workbooks.Open($file2)
  10. $ws = $wb.Sheets.Item(1)
  11. $sr = $ws.Range($ws.Cells.Item($startrow, $startcol), $ws.Cells.Item($endrow, $endcol))
  12. $dwb = $excel.Workbooks.Open($file1)
  13. $dws = $dwb.Sheets.Item(1)
  14. $fc = $dws.UsedRange.Find($pat)
  15. if ($fc -ne $null) {
  16. $rown = $fc.Row
  17. for ($i = 0; $i -le $endrow-$startrow; $i++) {
  18. $dws.Rows.Item($rown + 1).EntireRow.Insert()
  19. }
  20. $dsr = $dws.Range($dws.Cells.Item($rown + 1, $startcol), $dws.Cells.Item($rown + 1 + ($endrow - $startrow), $endcol))
  21. $dsr = $dsr.Resize($sr.Rows.Count, $sr.Columns.Count)
  22. $sr.Copy()
  23. $dsr.PasteSpecial(-4104)
  24. for ($i = 1; $i -le $dsr.Rows.Count; $i++) {
  25. $val = $dsr.Cells.Item($i, 1).Offset(-1, 0)
  26. $dsr.Cells.Item($i, 1).Value2 = $val.Value2
  27. }
  28. }
  29. $excel.DisplayAlerts = $false
  30. $wb.Close($false)
  31. $dwb.Close($true)
  32. [Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
  33. }
  34. $path=$PWD.Path
  35. $file1 = "$path\元数据.xlsx"
  36. $file2 = "$path\插入内容.xlsx"
  37. get-data -startrow 1 -startcol 2 -endrow 4 -endcol 9  -pat 1009 -file1 $file1 -file2 $file2
  38. get-data -startrow 6 -startcol 2 -endrow 8 -endcol 9  -pat 1018 -file1 $file1 -file2 $file2
  39. get-data -startrow 10 -startcol 2 -endrow 11 -endcol 9  -pat 1023 -file1 $file1 -file2 $file2
复制代码
1

评分人数

TOP

用PS吧 应该可以的

TOP

用VBA就可以

TOP

本帖最后由 haichuan5121 于 2023-5-12 16:11 编辑


有大神吗?顶一顶

TOP

本帖最后由 haichuan5121 于 2023-5-12 16:11 编辑

有大神吗?顶一顶

TOP

回复 5# haichuan5121


    如果你愿意付费,可以加我QQ

QQ 20147578

TOP

回复 3# Batcher


    已上附件

TOP

cmd不能实现打开和操作Excel文件吧~~只能用vba实现自动化~~~

TOP

回复 1# haichuan5121


如果需要上传文件,可以用阿里云盘或百度网盘。

如果需要上传截图,可以找个图床,例如:
http://bbs.bathome.net/thread-60985-1-1.html
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表