以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  vba操作删除excel表指定的行,然后替换指定列的内容或符号?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176066)

--  作者:cnsjroom
--  发布时间:2022/3/29 9:52:00
--  vba操作删除excel表指定的行,然后替换指定列的内容或符号?

vba操作删除excel表指定的行,然后替换指定列的内容或符号?

 

当前代码如下:

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\\Users\\Administrator\\Desktop\\廉政档案\\廉政档案建设花名册 - 副本.xls")
For i As Integer=1 To 2
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(i)
    Dim Rg As MSExcel.Range = Ws.Rows("1:3")
    Rg.EntireRow.Delete(MSExcel.XlDirection.xlToLeft)  \'右面的单元格左移
    \'Dim Rg1 As MSExcel.Range
    \'Rg1 = Ws.Range(Ws.Cells(0,9))
    \'Rg1.Value = "入党时间及党派"
  
Next
\'\'wb.save
App.Visible = True
\'app.quit

能够实现数据前三行的删除 

 

请教一下  怎么实现()符号的删除呢,或者其他变通方法实现内容的替换呢?

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:廉政档案建设花名册 - 副本.xls


图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2022/3/29 10:10:00
--  
先把文字提取出来,处理后再写回去

dim s as string = Rg1.Value
s = s.replace("(","")
Rg1.Value = s

--  作者:cnsjroom
--  发布时间:2022/3/29 10:22:00
--  回复:(有点蓝)先把文字提取出来,处理后再写回去di...


图片点击可在新窗口打开查看此主题相关图片如下:12.png
图片点击可在新窗口打开查看
弹不出值

 

当前代码如下:

Dim App1 As New MSExcel.Application
Dim Wb1 As MSExcel.WorkBook = App1.WorkBooks.Open("C:\\Users\\Administrator\\Documents\\Foxtable项目\\廉政档案\\Attachments\\廉政档案建设干部花名册.xls")
For i1 As Integer=1 To 2
    Dim Ws1 As MSExcel.WorkSheet = Wb1.WorkSheets(i1)
   
    Dim Rg1 As MSExcel.Range
   
    Rg1 = Ws1.Range(Ws1.Cells(4,10))
   
    Dim s As String = Rg1.Value
    MessageBox.Show(s)
    s = s.replace("(","")
    Rg1.Value = s
   
   
Next
App1.Visible = True


--  作者:有点蓝
--  发布时间:2022/3/29 11:22:00
--  
Rg1 = Ws1.Cells(4,10)