VB를 사용하여 컨트롤의 데이터를 행별로, 열별로 Excel에 씁니다.-컴퓨터 지식-php.cn

VB를 사용하여 컨트롤의 데이터를 행별로, 열별로 Excel에 씁니다.

WBOY

풀어 주다： 2024-01-14 22:45:05

앞으로

963명이 탐색했습니다.

VB를 사용하여 컨트롤의 데이터를 행별로, 열별로 Excel에 씁니다.

VB를 사용하여 컨트롤의 데이터를 행별로, 열별로 Excel에 씁니다

엑셀을 인용해주세요

dim xls를 새로운 Excel.application으로

excel.workbook으로 어두운 wb

excle.worksheet

로 희미한 sht

'위는 폼 변수입니다

'폼로드

set wb =xls.workboods.add("F:data.xls")

set sht =wb.worksheets(1)

'---' 버튼:

r을 정수로 어둡게

r=sht.range(＂A65536＂).end(xlsup).row+1

sht(r,1)=text1.text

sht(r,2)=text2.text

wb.save

'---폼 언로드 시

wb.close

xls.quit

옵션 명시

Dim xls As Excel.Application Dim wb As Excel.Workbook Dim sht As Excel.Worksheet

Private Sub Command1_Click() TryOpenXls Dim r As Integer r = sht.Range("A65536").End(xlUp).Row + 1 If r = 2 And sht.Range("A1").Value = """ And sht .Range("B1").Value = "" Then r = 1 sht.Cells(r, 1) = Text1.Text sht.Cells(r, 2) = Text2.Text wb.Save End Sub

Private Sub TryOpenXls() 오류 발생 시 다음 재개 Dim x As String Dim path As String path = App.path & "abc.xls" Err.Clear x = xls.Name If Err.Number 0 Then xls = New Excel로 설정합니다. 응용 프로그램 종료 If x = wb.Name If Err.Number 0 Then On Error GoTo 0 If Len(Dir(path)) = 0 Then Set wb = xls.Workbooks.Add wb.SaveAs path Else Set wb = xls.Workbooks. 열기(경로) End If End If

오류 발생 시 GoTo 0 Set sht = wb.Worksheets(1) End Sub

Private Sub Form_Unload(정수로 취소) 오류 발생 시 재개 다음 설정 sht = 없음 wb Is Nothing Then wb.Save: wb.Close If Not xls Is Nothing Then xls.Quit Set wb = 없음 Set xls = 없음 End Sub