실례합니다: vba, excel에서 여러 개의 xls 파일을 열고 문자열을 검색하여 다른 sheet에 쓰는 문제
--------------------
안녕하십니까? 저는 기본적으로 당신이 말한 기능을 실현할 수 있는 프로그램을 썼지만, 당신의 현재 코드와 약간 차이가 있습니다
참조:
다음 코드에서 완성된 기능은sheet1에서 @yahoo를 찾은 다음copy에서sheet2에 있는 것입니다.테스트를 해봤는데 사용할 수 있어요.
VBScript code
Sub
FindStrings()
Dim
firstCell, nextCell, stringToFind
As
String
Dim
nCursor
As
Integer
stringToFind
=
"
@yahoo
"
nCursor
=
1
nextCell
=
""
Sheet1.Select Range(
"
A1
"
).Select Range(
"
A1
"
).Activate
Set
firstCell
=
Cells.Find(What:
=
stringToFind, After:
=
ActiveCell, LookIn:
=
xlFormulas, LookAt _ :
=
xlPart, SearchOrder:
=
xlByRows, SearchDirection:
=
xlNext, MatchCase:
=
_
False
)
If
firstCell
Is
Nothing
Then
MsgBox
"
Search Value Not Found.
"
, vbExclamation
Else
Sheet2.Cells(
1
, nCursor).Value
=
firstCell nCursor
=
nCursor
+
1
Do
While
firstCell.Address
<>
nextCell
If
nextCell
=
""
Then
nextCell
=
firstCell.Address
End
If
nextCell
=
Cells.FindNext(After:
=
Range(nextCell)).Address
If
firstCell.Address
<>
nextCell
Then
Sheet2.Cells(
1
, nCursor).Value
=
Range(nextCell).Value nCursor
=
nCursor
+
1
End
If
Loop
End
If
End Sub
-----------------------
> : xls , sheet "@yahoo" , "bak13" > sheet ?
， xls
Dim
path
As
String
path
=
"
d:/work
"
FileName
=
Dir(path
&
"
/*.xls
"
) FileName
=
path
&
"
/
"
&
FileName
Do
While
FileName
<>
"
d:/work/
"
...... FileName
=
Dir FileName
=
path
&
"
/
"
&
FileName
Loop
----------- ：http://topic.csdn.net/u/20080414/12/37f8af2d-9b74-495a-b14f-24b6e3f9496f.html이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
Excel Grep toolExcel Grep tool ■히나가타 ■ 시트 구성 ExcelGrep.cls...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
