O Diário De Anne Frank

No Microsoft Excel, se utilizar um Microsoft procedimento Visual Basic for Applications para passar uma cadeia que é maior do que 255 caracteres de comprimento para um objecto, como uma caixa de texto, o Microsoft Excel pode truncar cadeia a 255 caracteres ou pode não conseguir introduzir a cadeia na caixa de texto.

Este comportamento também normalmente ocorre quando tenta passar mais de 255 caracteres para o argumento de ligação ou SourceData do PivotTableWizard. Quando tenta fazê-lo, recebe a seguinte mensagem de erro:

Runtime error '1004': falha de PivotTableWizard método da classe de folha de cálculo

Nota: Este comportamento afecta outros objectos do Microsoft Excel.

Voltar ao topo | Submeter comentários

Collapse imageCausa

No Microsoft Excel 7.0 ou anterior, este comportamento ocorre porque o limite de caracteres por célula é de 255 caracteres. Como resultado, as cadeias de mais de 255 caracteres de comprimento que são transmitidos a partir de um procedimento do Visual Basic para qualquer função do Microsoft Excel ou um objecto são truncadas para 255 caracteres.

No Microsoft Excel 97 para Windows e Microsoft Excel 98 Macintosh Edition, pode utilizar mais de 255 caracteres numa célula; No entanto, quando passar cadeias que são maiores do que 255 caracteres de comprimento de um procedimento do Visual Basic, o Microsoft Excel 97 utiliza a mesma estrutura que utilizem versões anteriores do Microsoft Excel.

Este limite aplica-se a todas as cadeias que pode passa de um procedimento do Visual Basic para uma folha do Microsoft Excel; Não é exclusivo para passar a células de informações. Por exemplo, se passar uma cadeia de texto com mais de 255 caracteres para uma caixa de texto na folha de cálculo ou uma folha de diálogo, o Microsoft Excel trunca o texto, apesar de uma caixa de texto pode conter até 10,240 caracteres.

Voltar ao topo | Submeter comentários

Collapse imageComo contornar

A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. Para inserir mais de 255 caracteres numa caixa de texto, utilize a propriedade de caracteres para inserir múltiplas variáveis de cadeia. As seguintes macros de exemplo utilizam a propriedade de caracteres para o fazer. Note que o terceiro exemplo é para utilização com o Microsoft Excel 97 para Windows.

Para passar mais de 255 caracteres para os argumentos de ligação ou SourceData, converta a cadeia de comprimento a uma matriz. Para ver uma macro de exemplo que utiliza uma função definida pelo utilizador, consulte o exemplo 4.

Exemplo 1

No exemplo seguinte, o comprimento de caracteres de cada variável é de 100. Cada método de inserção insere outra cadeia na posição no final da cadeia anterior.

Sub NoLoop()

Dim var1 as String, var2 as String, var3 as String

Dim first As Integer, secnd As Integer, third As Integer

' Note that each of the strings in quotation marks should be entered

' on one line.

var1 = _

"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"

var2 = _

"bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb

bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb"

var3 = _

"ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc

ccccccccccccccccccccccccccccccccccc"

var4 = _

"ddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd

ddddddddddddddddddddddddddddddddddd"

' The character length of each variable string is 100 characters.

' Define the variable equal to length of the first string.

first = Len(var1) + 1

' Define variables equal to length of the original string plus

' the length of each additional string.

secnd = first + Len(var2)

third = secnd + Len(var3)

' Insert first string into text box

DialogSheets(1).TextBoxes(1).Characters.Insert String:=var1

' Insert second string at the location of the end of the first

' string.

DialogSheets(1).TextBoxes(1).Characters(first).Insert String:=var2

' Insert third string at the location of the end of the second string

' and so on.

DialogSheets(1).TextBoxes(1).Characters(secnd).Insert String:=var3

DialogSheets(1).TextBoxes(1).Characters(third).Insert String:=var4

End Sub

Exemplo 2

Sub Looper()