[Resolvido]Limitar caracteres

Como inserir dados de uma caixa de texto do access em duas células distintas do excel?
Exemplo: a caixa de texto do access insere 100 caracteres na célula A1 e o que passa disso é inserido na célula A2.
Sou iniciante.
Muito Grato!

Não testei, mas veja se é algo assim:

Código:

Dim oApp As Object, nCar as Integer, nVezes As Integer, Texto As String
 
    Set oApp = CreateObject("Excel.Application")

        oApp.workbooks.Open "C:\Caminho\Nome do arquivo.xlsx"
        oApp.Visible = False
        oApp.Worksheets("Plan1").Activate

        nVezes = 1

        For nCar = 1 To Len(Me.NomeDoCampo)
            If nCar Mod 100 <> 0 Then
                Texto = Texto & Mid(Me.NomeDoCampo, nCar, 1)
            Else
                oApp.Worksheets("Plan1").Sheets("A" & nVezes) = Texto
                Texto = ""
                nVezes = nVezes + 1
            End If
        Next

        oApp.Application.Quit
    Set oApp = Nothing

Criquio, tentei usar colocando o código num botão mas deu problema no código:

oApp.Worksheets("Plan1").Sheets("A" & nVezes) = Texto

Desejo inserir os dados em duas células específicas, A16 e A17 e cada uma delas receberá, no máximo, 100 caracteres.

Fiz mais um teste e não deu erro, contudo não funcionou. Usei o código abaixo, modificação do seu.

Sub Limite()
Dim wks As Object, nCar As Integer, nVezes As Integer, Texto As String

Set WKB = EXC.Workbooks.Open("C:\Users\Mari\Desktop\Júlio\ConAccExcel\Form.xlsm")
Set wks = WKB.Worksheets(1)
nVezes = 7
For nCar = 1 To Len(Me.TxtDetalhe)
If nCar Mod 100 <> 0 Then
Texto = Texto & Mid(Me.TxtDetalhe, nCar, 1)
Else
wks.Range("A" & nVezes) = Texto
Texto = ""
nVezes = nVezes + 1
End If
Next
WKB.Close
EXC.Quit
End Sub

Tente algo assim:

Código:

Dim oApp As Object, nCar As Integer, nVezes As Integer, Texto As String
 
    Set oApp = CreateObject("Excel.Application")

        oApp.workbooks.Open CurrentProject.Path & "\Teste.xls"
        oApp.Visible = False
        oApp.Worksheets("Plan1").Activate

        nVezes = 16

        For nCar = 1 To Len(Me.Texto0)
            If nCar Mod 100 <> 0 And nVezes <= 17 Then
                If nCar < 100 Then
                    Texto = Texto & Mid(Me.Texto0, nCar, 1)
                Else
                    Texto = Texto & Mid(Me.Texto0, nCar - 1, 1)
                End If
            Else
                oApp.ActiveSheet.Range("A" & nVezes).Select
                oApp.ActiveCell.Value = Texto
                Texto = ""
                nVezes = nVezes + 1
            End If
        Next

        oApp.ActiveSheet.Range("A1").Select

        oApp.ActiveWorkbook.Save
        oApp.Application.Quit

    Set oApp = Nothing

Criquio,muito grato!! Funcionou perfeitamente.

Criquio só para terminar. O código funcionou muito bem em células não mescladas, contudo na mesclagem A16:H16 e A17:H17 não funcionou. Cem caracteres foram inseridos no primeiro intervalo e os demais na célula A61. Será que dá para resolver isso?

Como você está referenciando as células? Células mescladas se transformam em uma só, nomeado pela primeira célula na mesclagem, no caso, "A16" e "A17". Se referenciar apenas essas duas, deve funcionar. Fiz um teste aqui e funcionou tranquilo.

Tudo bem! Está acontecendo o seguinte agora: ocorre a inserção nas células A16 e A17 e o que vem após(A18,A19, etc) é apagado. Creio que seja por causa desta parte do código:

Else
oApp.ActiveSheet.Range("A" & nVezes).Select
oApp.ActiveCell.Value = Texto
Texto = ""
nVezes = nVezes + 1
'End If

Você havia mencionado que queria copiar o texto para a A16 e a A17, por isso elaborei o código apenas para essas duas. Se a intenção é continuar inserindo texto nas outras células, precisa alterar a linha quem tem nVezes <= 17 para acomodar todo os texto nas células seguintes.

Creio que não me expressei corretamente! O que estou dizendo é que o código faz a inserção corretamente nas células A16 e A17. Contudo, tenho outros dados nas células posteriores (A18,A19,A20, etc) que são apagados quando aciono o código. Aí prejudica o trabalho já realizado. Para ser mais exato é apago todos os dados contidos no intervalo de A18 até A67.

Tente trocar toda a parte abaixo:

Código:

        nVezes = 16

        For nCar = 1 To Len(Me.Texto0)
            If nCar Mod 100 <> 0 And nVezes <= 17 Then
                If nCar < 100 Then
                    Texto = Texto & Mid(Me.Texto0, nCar, 1)
                Else
                    Texto = Texto & Mid(Me.Texto0, nCar - 1, 1)
                End If
            Else
                oApp.ActiveSheet.Range("A" & nVezes).Select
                oApp.ActiveCell.Value = Texto
                Texto = ""
                nVezes = nVezes + 1
            End If
        Next

por:

Código:

      oApp.ActiveSheet.Range("A16:H16").Select
      oApp.ActiveCell.FormulaR1C1 = Left(Me.Texto0, 100)
      oApp.ActiveSheet.Range("A17:H17").Select
      oApp.ActiveCell.FormulaR1C1 = Mid(Me.Texto0, 101, 100)

Não se esquecendo de trocar o nome do campo Texto0 para o nome correto do seu campo.

Nesse caso, nas declarações Dim, pode deixar apenas a variável oApp As Object e excluir as outras.

Criquio, funcionou perfeitamente! É isso! Mais fácil que pensava. Salve!!!