Format de cellule du général de texte

Je suis en train d'écrire un petit script qui ouvre Excel, formats de cellule B1 de texte et enregistre le fichier, mais je ne peux pas obtenir "format texte" au travail. Quelqu'un sait ce que je suis en manque ici?

C'est cette ligne qui ne fonctionne pas: ExcelObj.Cells("B").Value = "@"

Set ExcelObj = CreateObject("Excel.Application")
ExcelObj.DisplayAlerts = False
ExcelObj.Visible  = true    ' or false
ExcelObj.Workbooks.Open "C:\Supplier\DK\ExternalPrices\Mapforcecode\Computercity\excelmapping\ExternalPrices.xlsx"
ExcelObj.Cells("B").Value = "@"
ExcelObj.Workbooks(1).SaveAs "\\file-srv1\Scalepoint\Supplier\Catalog\Data\DK\Computercity\Current\ExternalPrices.xlsx", 51
ExcelObj.Quit
InformationsquelleAutor Patrik Frid | 2015-06-26
  1. 4
    ExcelObj.ActiveSheet.Range("B1").NumberFormat = "@"
    InformationsquelleAutor Bond
  2. 0

    En cas de doute, lisez l' la documentation. Le Cells propriété attend de ligne et de colonne numéro:

    ExcelObj.Cells(1, 2).NumberFormat = "@"

    Si vous souhaitez utiliser "B1" notation vous devez utiliser le Gamme propriété:

    Set wb = ExcelObj.Workbooks.Open "C:\Supplier\...\ExternalPrices.xlsx"    
wb.Sheets(1).Range("B1").NumberFormat = "@"
wb.SaveAs "\\file-srv1\Scalepoint\...\ExternalPrices.xlsx", 51
wb.Close

    Noter, cependant, que Range est relative à la cellule active, donc, en fonction de si oui ou non votre de cellules actives est A1 vous pouvez vous référer à des cellules différentes. L'indexation de Cells est absolue.

    • merci pour la leçon, je vais commencer à regarder dans la documentation, merci 🙂
    • Cela ne veut pas modifier la mise en forme de la cellule. Il ne change la valeur de celui-ci. Son Cells/Range question est une partie du problème. À l'aide de Value au lieu de NumberFormat est le reste.
    • Une vision en Tunnel. Narf.
    InformationsquelleAutor Ansgar Wiechers