copie o retorno de carro de cópias da célula do excel também

4

Estou copiando células individuais do Excel e colando-as no SQL. Cada vez que faço isso, o retorno de carro é automaticamente adicionado à cópia.

Repro:

Enter 123 in any cell in excel 2007.Click on another cell. Now right click on the cell you just entered. Select copy. Open notepad and paste. Note that carriage return is also copied, where there is no carriage return in the cell.

    
por hk_ 24.04.2012 / 22:56

1 resposta

2

Eu acredito que você gostaria que o carro retornasse se você estivesse copiando mais de uma célula, o que provavelmente é o motivo pelo qual ele está sendo incluído.

Mas se você estiver copiando um de cada vez, poderá copiar da barra de fórmulas em vez da célula e, em seguida, não obterá o retorno de carro.

Se você tem um lote de células para copiar, você pode querer criar um simples script VBA para empurrar o conteúdo da célula selecionada para a área de transferência (então atribuir isso a uma tecla de atalho). / p>

Editar:

Macro de exemplo:

Sub CopyActiveCell()
    Dim objData As MSForms.DataObject
    Set objData = New MSForms.DataObject
    objData.SetText ActiveCell.Value
    objData.PutInClipboard
End Sub

Observe que, para que isso funcione, você precisa adicionar uma referência a Microsoft Forms 2.0 Object Library (via Ferramentas | Referências). Se você estiver copiando muitos valores, poderá simplificar ainda mais adicionando a criação do sub no módulo Sheet1 como

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

em vez de

Sub CopyActiveCell()

Isso copia automaticamente o valor da célula sempre que você clica uma vez em uma célula para selecioná-lo.

    
por 24.04.2012 / 23:31