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

VB에서 계산된 데이터를 엑셀로 가져오는 방법

프로그램을 읽지 않았습니다

참고자료 좀 주세요

궁금한 점은 메시지 남겨주세요

set e = CreateObject("Excel.Application")

e.visible = 0

set nb = e.workbooks.add

set ns = nb.worksheets(1)

for i = 1부터 10까지

j = 1부터 10까지

ns.cells(i,j) = cstr(i) & "," & cstr(j)

다음

다음

ns.saveas "c:a.xlsx"

e.quit

set e = CreateObject("Excel.Application")

e.visible = 0

set nb = e.workbooks.add

set ns = nb.worksheets(1)

for i = 1부터 10까지

j = 97 ~ 105

k = chr(j)

ns.range(k&i).value = "the"&i&"번째"

다음:다음

ns.saveas "c:a.xls"

e.quit

VB는 배열 데이터를 Excel에 저장합니다

비공개 하위 명령1_Click()

Dim XlApp을 새로운 Excel.Application으로

Dim xlBook을 새로운 Excel.Workbook으로

Dim xlSheet를 새로운 Excel.Worksheet로

XlApp.Visible = True

XLBook 설정 = XlApp.Workbooks.Add

Set xlSheet = xlBook.Worksheets(1)

For i=1 to 20 '귀하의 배열에는 20개의 숫자가 아닌 21개의 숫자가 있습니다

xlSheet.Range(xlSheet.Cells(1,i).Value=a1(i)

xlSheet.Range(xlSheet.Cells(2,i).Value=b1(i)

xlSheet.Range(xlSheet.Cells(3,i).Value=c1(i)

xlSheet.Range(xlSheet.Cells(4,i).Value=d1(i)

xlSheet.Range(xlSheet.Cells(5,i).Value=e1(i)

xlSheet.Range(xlSheet.Cells(6,i).Value=f1(i)

다음엔 나

끝 서브

위 내용은 VB를 사용하여 컨트롤의 데이터를 행별로, 열별로 Excel에 씁니다.의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!