뷰의 데이터를 *로 내보내는 방법CSV 파일
첫 번째 단계:
인용, LOUTES 1-2-3, 형식, 접미사 ".wk3"선택
2단계:
EXCEL로 열고 CSV 형식으로 저장
LS 코드 구현 (파일 작성 방식):
이 스크립트는 프록시에 놓여 있으며, 작업 대상은'모든 선택한 문서'를 선택하고, 보기 조작을 통해 호출되며, 공식을 호출합니다. @Command ([ToolsRunMacro];...
Sub Click(Source As Button)
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim coll As NotesDocumentCollection
Dim doc As NotesDocument
Dim item As notesitem, txt As String
Dim i As Integer, fileNum As Integer, fileName As Variant, strAppend As String, tmpstr As String
Dim num As Integer
FileName=ws.OpenFileDialog( True, "Export File", "CSV Documents(*.csv)|*.csv|Text Documents(*.txt)|*.txt", "", "")
If Isempty(FileName) Then
Exit Sub
Else
If FileName(0)="" Then
Exit Sub
End If
End If
fileNum% = Freefile()
Open fileName(0) For Output As fileNum%
Set db = session.CurrentDatabase
strAppend = "Title,Content" 'print column title
Print #fileNum%, strAppend
Set coll = db.UnprocessedDocuments
num = 0
For i=1 To coll.Count 'print column of each selected document
Set doc = coll.GetNthDocument(i)
strAppend = Cstr(doc.Title(0))+ ","+ Cstr(doc.Content(0))
Print #fileNum%, strAppend
num = num + 1
Next
Close fileNum%
Messagebox Cstr(num) + " documents have been exported. ",64,"Lotus Notes"
End Sub이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 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에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
