VB6 e Excel

[Ridelight]

Preciso de uma ajuda.

Preciso fazer uma aplicação que leia e escreva em uma folha de excel.

Que no dia 1 de Junho escreva ao clicar no botão 1 e escreva na coluna A1 o valor 1 e que ao clicar novamente ele leia o valor que está na coluna A1 e lhe adicione 1 ficando lá o valor 2.

No dia 2 de junho ele escreva na coluna A2 o valor 1 e assim sucessivamente.

se alguem podesse ajudar, e de preferencia que fosse inteligente ao ponto de criar uma folha nova quando mudasse de mês tipo junho09.xls julho09.xls (...) janeiro10.xls

[Ridelight]

Private Sub Command1_Click()
ExcelApp.Cells(1, 1).Value = "Abono"
ExcelApp.Cells(2, 1).Value = ExcelApp.Cells(2, 1).Value + "1"
Label1.Caption = ExcelApp.Cells(2, 1).Value
End Sub

Gostava que ele fizesse isto na linha pelo dia, se ninguem souber a forma, vou fazer com a data numas textbox.

[jpaulino]

Então na coluna só tens de definir o dia:

Dim dia As Integer
dia = Day(Now)
ExcelApp.Cells(2 , dia ).Value = CInt(ExcelApp.Cells(2, 1).Value) + 1