2016-11-16 2 views
1

Ich habe ein Programm, das Textdateien speichert, was ich tun möchte, ist einige grundlegende Styling zu diesem Text hinzufügen, bevor sie in Excel geöffnet werden.Import von Excel aus Textdatei, mit dem Styling

Meine Dateien sehen oft so aus:

Title of text 

lorem ipsum dolor sit amet 

Gibt es etwas, was ich in dieser Textdatei schreiben könnte, die ‚Titel des Textes‘ machen würde fett wenn in Excel geöffnet?

wie HTML-Tagging wäre

<b>Title of text</b> 

lorem ipsum dolor sit amet 

Gibt es etwas ähnliches für Excel?

+0

Sie können Styling in Excel ja hinzufügen, aber versuchen Sie, die Formatierung in den gespeicherten Textdateien oder in der Excel-Datei, die den Text öffnet, zu speichern? –

+0

@TimWilkinson Ich möchte die Formatierung in der Textdatei speichern, bevor ich es in Excel öffne, so dass beim ersten Öffnen in Excel der Titel fett sein wird – klskl

+0

Wenn Sie Ihre Blätter als '.txt' oder andere rohe speichern Textformat wird dies nicht möglich sein. Sie müssten beispielsweise als HTML oder Word-Dokument exportieren, um jedes hinzugefügte Styling beizubehalten. –

Antwort

1

Sie können den folgenden Code verwenden. Dieser Code formatiert Text im Bereich A1:A13. Sie können den Bereich auswählen, den Sie entsprechend Ihren Anforderungen formatieren möchten. Kopieren Sie diesen Code einfach in den Visual Basic-Editor, und führen Sie die Subroutine mit der Schaltfläche "Sub ausführen" aus.

Sub Macro1() 

Dim str As String 
Dim nBold As Long 
Dim nEndBold As Long 
Dim nChars As Long 
Set Rng = Range("A1:A13") 

For Each cell In Rng 
    str = cell.Text 
    nBold = InStr(str, "<b>") 
    If nBold > 0 Then 
     nEndBold = InStr(str, "</b>") 
    If nEndBold = 0 Then nEndBold = 32767 
     nChars = nEndBold - nBold - 3 
     str = Replace(Replace(str, "<b>", ""), "</b>", "") 
     cell.Value = str 
     cell.Characters(nBold, nChars).Font.Bold = True 
    End If 
Next cell 

End Sub 

Weitere Informationen finden Sie unter this link.