VB を使用して、コントロール内のデータを行ごと、列ごとに Excel に書き込みます

VB を使用して、コントロール内のデータを行ごと、列ごとに Excel に書き込みます

Excel を引用してください、

dim xls を新しい Excel.application として使用

WB を Excel.workbook として暗くする

dim sht as excle.worksheet

'上記はフォーム変数です

'フォームロード

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

set sht =wb.worksheets(1)

＃＃＃' - -' ボタン： ＃＃＃

dim r を整数として使用する

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

sht(r,1)=text1.text

sht(r,2)=text2.text

wb.save

'---フォームのアンロード時

wb.閉じる

xls.終了

明示的なオプション

xlsをExcel.ApplicationとしてDim wbをExcel.WorkbookとしてDim shtを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 = ＂＂"そして sht.Range(＂B1＂).Value = ＂＂ そして r = 1 sht.Cells(r, 1) = Text1.Text sht.Cells(r, 2) = Text2.Text wb.Save End Sub

Private Sub TryOpenXls() On Error Resume Next Dim x As String Dim path As String path = App.path & ＂\abc.xls＂ Err.Clear x = xls.Name If Err.Number

0 then Set xls = 新しい Excel.Application End 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.Open(path) End If End If エラー時 GoTo 0 Set sht = wb.Worksheets(1) End Sub

Private Sub Form_Unload(Cancel As Integer) On Error Resume Next Set sht = Nothing If Not wb Is Nothing then wb.Save: wb.Close If Not xls Is Nothing then xls.Quit Set wb = Nothing Set xls = Nothing Endサブ＃＃＃

vbで計算したデータをexcelにインポートする方法

私はあなたのプログラムを読んでいません

参考にしてください

ご質問がございましたらメッセージを残してください

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.やめます

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 = "「&i&」番目」

次:次

ns.saveas "c:\a.xls"

e.やめます

VB は配列データを Excel に保存します

プライベートサブコマンド1_Click()

Dim XlApp を新しい Excel.Application として使用する

xlBook を新しい Excel.Workbook としてディム

xlSheet を新しい Excel.Worksheet としてディム

XlApp.Visible = True

xlBook = XlApp.Workbooks.Add を設定します

xlSheet = xlBook.Worksheets(1)を設定します

i=1 から 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)

次のi

エンドサブ

以上がVB を使用して、コントロール内のデータを行ごと、列ごとに Excel に書き込みますの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。