Dấu ngoặc kép trong VBA

Question

Trong mã VBA hiện tại của tôi, tôi có truy vấn trong đó tôi đang sử dụng Chr(34) để đặt dấu ngoặc kép giữa một số biến của tôi.

Tôi đã tự hỏi những lựa chọn thay thế tồn tại cho điều này. Đây là một câu hỏi đơn giản, tôi biết, nhưng tôi đã không có bất kỳ thành công với lặp lại dấu ngoặc kép như

" & biến chuỗi này đây & "

Mã của tôi là lộn xộn cho một và không dễ hiểu đối với những người không quen thuộc với VBA:

comboService = Chr(34) & Me.Combo8.Value & Chr(34) 

Ngoài ra, điều này đã không làm việc:

comboService = """" & Me.Combo8.Value & """" 

Bạn có thể cho tôi biết lý do không?

Xin cảm ơn trước.

Answer 1

này:

comboService = """ & Me.Combo8.Value & """ 

là những gì bạn được đăng, nhưng bạn cần phải thêm một dấu ngoặc kép phụ để thêm một dấu nháy đen:

comboService = """" & Me.Combo8.Value & """" 

đúp dấu ngoặc kép trong một chuỗi là những gì bạn đang tìm kiếm.

aVar = "This: "" is a literal quotation mark" 

Answer 2

tôi lấy một trang từ MS (các vbCrLf cũ) một thời gian trở lại, và chỉ xác định bất kỳ nhân vật "khó khăn" Tôi sẽ cần như là một chuỗi ở đầu mã của tôi ...

Dim vbDblQuote As string vbDblQuote = Chr (34)

Bây giờ bạn chỉ có thể sử dụng mà giả thường xuyên như bạn xây dựng chuỗi ...

strMyString = "chỉ cần một chuỗi" & vbDblQuote & "với dấu ngoặc kép" 01.vbDblQuote & "!"

Điều này làm cho mã dễ đọc hơn, và cũng giúp tránh "lỗi quote miscounted"

Answer 3

tôi đã tìm thấy các hành vi tương tự nếu tôi đầu ra vào một tập tin bằng cách sử dụng Viết lệnh. Bất kỳ dấu ngoặc kép nào cũng được lặp lại.

Tuy nhiên, nếu bạn xây dựng chuỗi và sau đó xuất ra tệp bằng lệnh In, điều này không xảy ra và tất cả đều hoạt động như mong đợi.