보오 목록 내보내기 Excel 이후 단위 대량 교체
VBS 벌크 수정 코드:
Option Explicit
If Wscript.Arguments.Count = 0 Then
WScript.Echo Chr(10) & _
"[ ]" & Chr(10) & Chr(10) & _
Chr(9) & " Excel " & Chr(10) & Chr(10) & _
"[ ]" & Chr(10) & Chr(10) & _
Chr(9) & " "
WScript.Quit
End If
Dim xlsFilePath
xlsFilePath=WScript.Arguments(0)
Dim Wshell
Set Wshell=CreateObject("Wscript.Shell")
If LCase(Right(WScript.FullName,11)) = "wscript.exe" Then
Wshell.Run "CScript.exe //nologo" & _
Chr(32) & _
Chr(34) & WScript.ScriptFullName & Chr(34) & _
Chr(32) & _
Chr(34) & WScript.Arguments(0) & Chr(34)
WScript.Quit
End If
WScript.Echo " , ......"
Dim oExcel,oWorkbook,Sheet
On Error Resume Next
Set oExcel = GetObject(,"Excel.Application")
If Err Then
WScript.Echo Err.Description
Err.Clear
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
End If
Set oWorkbook = oExcel.Workbooks.Open(xlsFilePath)
If Err Then
Err.Clear
Wshell.Popup " , :" & Chr(10) & _
"1、 Microsoft Office 2003、2007、2010 。" & Chr(10) & _
"2、 , 。", 10 , " ", 16+4096
WScript.Quit
End If
On Error Goto 0
oExcel.DisplayAlerts = False
Dim CurrentPath
CurrentPath = CreateObject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
For Each Sheet In oWorkbook.Worksheets
Sheet.Activate
Wscript.Echo "Replace:" & Sheet.Name
oExcel.Cells.Replace "㎡", "m2", 2, 1, False, False, False
oExcel.Cells.Replace "", "m2", 2, 1, False, False, False
oExcel.Cells.Replace "", "m3", 2, 1, False, False, False
oExcel.Cells.Replace " ", "m", 2, 1, False, False, False
Next
oWorkbook.Worksheets(1).Select
oWorkbook.Save
oExcel.DisplayAlerts = True
oWorkbook.Close
Set oExcel = Nothing
Set oWorkbook = Nothing
Wshell.Popup " , 。", 10, " ", 48
VBS 대량 수정 코드(교체 목록.txt 파일 읽기, 반복 교체)
Option Explicit
If Wscript.Arguments.Count = 0 Then
WScript.Echo Chr(10) & _
"[ ]" & Chr(10) & Chr(10) & _
Chr(9) & " Excel " & Chr(10) & Chr(10) & _
"[ ]" & Chr(10) & Chr(10) & _
Chr(9) & " "
WScript.Quit
End If
Dim xlsFilePath
xlsFilePath=WScript.Arguments(0)
Dim Wshell
Set Wshell=CreateObject("Wscript.Shell")
If LCase(Right(WScript.FullName,11)) = "wscript.exe" Then
Wshell.Run "CScript.exe //nologo" & _
Chr(32) & _
Chr(34) & WScript.ScriptFullName & Chr(34) & _
Chr(32) & _
Chr(34) & WScript.Arguments(0) & Chr(34)
WScript.Quit
End If
WScript.Echo " , ......"
Dim oExcel,oWorkbook,Sheet
On Error Resume Next
Set oExcel = GetObject(,"Excel.Application")
If Err Then
WScript.Echo Err.Description
Err.Clear
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
End If
Set oWorkbook = oExcel.Workbooks.Open(xlsFilePath)
If Err Then
Err.Clear
Wshell.Popup " , :" & Chr(10) & _
"1、 Microsoft Office 2003、2007、2010 。" & Chr(10) & _
"2、 , 。", 10 , " ", 16+4096
WScript.Quit
End If
On Error Goto 0
Dim fso,oFile
Set fso = CreateObject("Scripting.FileSystemObject")
Dim strLine
Dim strArr
Dim CurrentPath
CurrentPath = CreateObject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
oExcel.DisplayAlerts = False
For Each Sheet In oWorkbook.Worksheets
Sheet.Select
Sheet.Activate
WScript.Echo Sheet.Name
Set oFile = fso.OpenTextFile(CurrentPath & "\ .txt", 1)
Do While oFile.AtEndOfStream <> True
strLine = oFile.ReadLine
strArr = Split(strLine,"→")
oExcel.Cells.Replace strArr(0), strArr(1), 2, 1, False, False, False
Loop
oFile.Close
Next
oWorkbook.Worksheets(1).Select
oWorkbook.Save
oExcel.DisplayAlerts = True
oWorkbook.Close
Set oFile = Nothing
Set oExcel = Nothing
Set oWorkbook = Nothing
Wshell.Popup " , 。", 10, " ", 48
목록.txt 대체 예:
04 →04 ( )
05 →05 ( )
06 →06
09 →09
11 →11 ( )
12 →12 ( )
13 →13 ( )
15 →15
18 →18
19 →19 ( )
27 →27 ( )
28 →28
29 →29
31 →31 ( )
32 →32
33 →33 ( )
34 →34 ( )
35 →35 ( )
36 →36 ( )
37 →37 ( )
38 →38 ( )
01→
02→
03→
04→
05→
06→ ( )
07→ ( )
08→ ( )
09→ ( )
10→
11→
12→
13→
→
→
→
→
→
→
→
→
→
㎡→m2
→m2
→m3
전재 대상:https://www.cnblogs.com/cnrsgx/p/5741149.html
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
다양한 언어의 JSONJSON은 Javascript 표기법을 사용하여 데이터 구조를 레이아웃하는 데이터 형식입니다. 그러나 Javascript가 코드에서 이러한 구조를 나타낼 수 있는 유일한 언어는 아닙니다. 저는 일반적으로 '객체'{}...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.