Excel VBA，看文本和換行符然後文本的表單字段

我在這裏使用遺留代碼，我不知道我可以或應該改變多少，但我有代碼，尋找類似「SIC CODE 4000」但是數據的HTML數據庫中，我把它從（我們使用複製和粘貼）已經更新了他們的代碼有：Excel VBA，看文本和換行符然後文本的表單字段

「SIC代碼

4000」

目前的代碼是：

Const strSic = "SIC Code "

但是我現在需要它來添加換行符。

我試圖修改代碼的說：

Const strSic = "SIC Code" & Chr(10) & Chr(10) & Chr(10)

但我得到一個編譯錯誤說「常量表達式要求」

我試圖用「SIC區號\ n \ n \ n」，但也許我沒有考慮換行的正確角色。

有什麼建議嗎？

來源

2015-10-01 James Douglas

它需要是一個常量嗎？也許只是用它作爲一個變量？ –

試試這個：

Const strSic = "SIC Code" & vbLf & vbLf & vbLf

來源

2015-10-01 17:03:41

@JamesDouglas如果你不能做到這一點，請給我一個樣本工作簿與你正在嘗試的數據和VBA。我會爲你分類。我的電子郵件地址是：[email protected] –

對不起。它包含工作相關的東西，所以不能發送出去。感謝您盡力幫助。目前通常處理這個問題的人已經不在了，所以我將不得不等待他們進來。我想我已經縮小到它尋找一個chr（10）以停止查看文本的事實。問題是我需要它忽略前四個換行符，然後在第五個換行符停下來。不知道如何做到這一點。 –

新行的代碼是vbNewLine：

Const strSic = "SIC Code" & vbNewLine & vbNewLine & vbNewLine

更新：

是有點更詳細的看到VBA constants：

vbCr = Chr(13)
vbNewLine = Chr(13)+Chr(10)在Windows和Chr(13)
vbLf = Chr(10)

所以，如果你只需要Chr(10)你應該使用vbLf（如Excel英雄的答案）。

來源

2015-10-01 17:04:13 agold

如果OP只需要ASCII碼10，vbNewLine不是正確的常量。 –

你是對的，我更新了我的答案，謝謝。 – agold

謝謝。現在我沒有收到錯誤，但它仍然沒有找到文本。我看了記事本中的文本，似乎它有「換行符」「換行符」「空格」「換行符」「換行符」所以我試過：Const strSic = "SIC Code" & vbNewLine & vbNewLine & " " & vbNewLine & vbNewLine但它仍然不起作用。我可能不得不在其他地方看看代碼在做什麼。 –

是vbNewLine是正確的代碼：）

來源

2015-10-01 17:09:39 Linga

如果OP只需要ASCII碼10，vbNewLine不是正確的常量。 –

謝謝你的更新:) – Linga

Excel VBA，看文本和換行符然後文本的表單字段

回答

相關問題