Minha pergunta eh a seguinte:
Na rotina do botao "Exportar" do Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel gostaria de fazer uma pequena mudanca! Ao invez de o botao exporta todas as colunas do cadastro que eu filtrei (no caso tenho mais de 100 colunas para cada cadastro), gostaria que o botao fosse capaz de exportar somente algumas colunas que eu definir (pois nem todas as colunas no meu cadastro sao interessantes para se exportar) ou entao somente um intervalo de colunas para se exportar.
creio que a solucao esteja nessa linha:
Next i
NewWorkBook.Sheets(1).Range("A4").CopyFromRecordset rst
NewWo
porem nao estou conseguindo resolver!
Sera que isso eh possivel, segue abaixo a rotina referente ao botao exportar! Alguem poderia me dar uma luz?
Código: Selecionar todos
Private Sub Exportar()
Dim i As Integer
Dim NewWorkBook As Workbook
Dim rst As ADODB.Recordset
' Preenche o RecordSet com os filtros atuais
Set rst = PreecheRecordSet(txtNomeEmpresa.Text, txtNomeContato.Text, txtEndereco.Text, txtTelefone.Text, txtRegiao.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text, TextBox10.Text, TextBox11.Text)
'cria um novo Workbook
Set NewWorkBook = Application.Workbooks.Add
' Efetua loop em todos os campos, retornando os nomes de campos
' à planilha.
For i = 0 To rst.Fields.Count
NewWorkBook.Sheets(1).Range("A1").Offset(0, i).Value = rst.Fields(i).Name
Next i
NewWorkBook.Sheets(1).Range("A4").CopyFromRecordset rst
NewWo