Dépassant la limite maximale de caractère dans Excel

Les gars, je pense qu'un raccourcissement de l'URL VBA vous aidera. Voici un que j'ai trouvé aujourd'hui. Il fonctionne comme un charme: http://www.jpsoftwaretech.com/ raccourcir les URL-URL-with-bit-ly-web-API-and-VBA /

Voici quelques VBA qui utilise Bitly.com pour raccourcir une URL. Il est basé sur le Documentation des API Bitly .

1. Créez un compte gratuit sur Bitly . Li>
2. Adresse e-mail valide avec Bitly . Li>
3. Obtenez un jeton d'accès à partir de Bitly . Li>
4. substituer le jeton d'accès dans le code VBA ci-dessous où il est indiqué My_Token. Li>
5. Copiez et collez le code dans VBA de Excel. LI>
6. dans une cellule, écrivez ce qui suit '= hyperlien (getturl ("une URL vraiment longue")) "sans marque de devis unique". Remarque: au lieu de passer une chaîne à Geturl (), transmettez une référence à une cellule qui a une URL y a-t-elle en tant que texte. LI> ol>

   Public Function GetURL(longUrl As String) As String
     Dim xml As Object
   
     longUrl = URLEncode(longUrl)
     Set xml = CreateObject("MSXML2.XMLHTTP.6.0")
   
     xml.Open "GET", "https://api-ssl.bitly.com/v3/shorten?format=xml&access_token=MY_TOKEN=" & longUrl, False
     xml.Send
   
     GetURL = xml.responsetext
   
     head = InStr(GetURL, "<url>") + 5
     tail = InStr(GetURL, "</url>")
   
     GetURL = Mid(GetURL, head, tail - head)
   
   End Function
   
   Function URLEncode(ByVal Text As String) As String
     Dim i As Integer
     Dim acode As Integer
     Dim char As String
     URLEncode = Text
     For i = Len(URLEncode) To 1 Step -1
       acode = Asc(Mid$(URLEncode, i, 1))
       Select Case acode
         Case 48 To 57, 65 To 90, 97 To 122
           ' don't touch alphanumeric chars
         Case 32
           ' replace space with "+"
           Mid$(URLEncode, i, 1) = "+"
         Case Else
           ' replace punctuation chars with "%hex"
           URLEncode = Left$(URLEncode, i - 1) & "%" & Hex$(acode) & Mid$(URLEncode, i + 1)
       End Select
     Next
   End Function
   

La fonction de liens hypertexte a une limite difficile qui ne peut pas être surestimée. J'ai eu un problème similaire et j'ai simplement importé la feuille Excel en Open Office Calc et Voila - tout a fonctionné instantanément et que le lien hypertexte qui devait précédemment peut être maintenant aussi longtemps que je le souhaite.

Dunno Si ma réponse est toujours utile, mais j'avais le même problème il y a quelques jours, le meilleur moyen de faire un lien hypertexte qui dépasse une limite de chargement de 255 caractères est de la scinder, avec concaténate ( ) code>, et utilisez la cellule avec concaténate () code> fonction dans VBA code> strong>. P>

Sub insertVeryLongHyperlink()

    Dim curCell As Range
    Dim longHyperlink As String

    Set curCell = Range("A7")   ' or use any cell-reference
    longHyperlink = [A5]

    curCell.Hyperlinks.Add Anchor:=curCell, _
                    Address:=longHyperlink, _
                    SubAddress:="", _
                    ScreenTip:=" - Click here to follow the hyperlink", _
                    TextToDisplay:="Click Here"

    End Sub

Vous pouvez utiliser la routine VBA Shell () pour exécuter un navigateur et transmettre l'URL sur la ligne de commande passée via la coque (). Ainsi, l'URL peut être n'importe quelle longueur supportée par le mécanisme de coque.

En outre, vous pouvez obtenir cette URL de n'importe quelle valeur de cellule en faisant double-cliquer sur cette cellule. Cette valeur peut être construite à partir de nombreuses cellules via un seul appel de la fonction Concaténate ()! C'est vrai: juste un seul appel. Le concaténate () prendra un grand nombre de paramètres et créera une chaîne bien à plus de 255 caractères. Vous n'avez pas besoin de rejoindre Travailler de nombreuses concaténations séparées ou utilisez des charges de cellules «génératrices». On fera!

La macro doit être créée en ouvrant l'option de code de vue lorsque vous cliquez avec le bouton droit de la souris sur l'onglet au bas de la feuille de calcul. Ensuite, écrivez le bit de code phénoménal et indolore suivant: xxx

notez que "navigateur" est une cellule nommée qui doit contenir le chemin non noté de votre navigateur, que ce soit. IE, Opera, Mozilla ou Chrome. Vous devez nommer la cellule vous-même ou modifier la macro pour avoir une référence cellulaire dure comme "A2". Et bien sûr, cette valeur de cellule doit être un chemin de navigateur valide!

Une fois que vous avez tout cela en place, vous pouvez double-cliquer sur n'importe quelle cellule qui a une valeur commençant par le texte "http: // "Et Excel ouvrira le navigateur avec cette valeur totale, peu importe combien de temps c'est. Tout ce que vous avez besoin est de construire votre chaîne dans cette cellule et peut-être formater la couleur de la couleur / la police pour le rendre évident qu'il s'agit d'une cellule de lien hypertexte à double-cliquer. Un indice textuel à proximité peut également être en ordre!

Incidemment, une alternative à la ligne de coquille () dans la macro est la suivante: xxx tandis que cela va Les URL de processus ont également plus de 255 caractères, j'ai constaté que cette fonction de suivi () provoque l'envoi de l'URL deux fois. Une fois par la fonction Excel elle-même (probablement pour le tester), puis à nouveau par le navigateur par défaut que Excel s'ouvre! Cela peut ne pas être souhaitable (et n'était pas dans mon cas). C'est pourquoi j'ai fini par utiliser la fonction shell () à la place.

Vous pouvez créer un hyperlien dans Microsoft Word, puis le copier sur Excel. Pour une raison quelconque, ces éléments d'hyperliens ne sont pas limités par la limite de 255 caractères, mais vous ne pourrez pas utiliser la fonction lien hypertexte () .

Source