Compile error: Missing end bracket

[Stacy Rueda]

Hi!

I have here macro vb code that boss gave me to operate but every time I click File export button on my excel file I have error that says "Compile error: Missing end bracket". please help me with this..Thank you in advance

Error was found in first line -->Public Sub NIGˆË—Šƒf�[ƒ^�ì�¬()

Public Sub NIGˆË—Šƒf�[ƒ^�ì�¬()


Dim columns As Integer

Dim strFNAME As String 'ƒtƒ@ƒCƒ‹–¼•Û‘¶—p
strFNAME = ActiveWorkbook.Path & "\irai_result.txt"


Call MAKE_CSV_FILE(6, strFNAME)


End Sub

 

[shg]

That's not a valid procedure name.

How about instead

Public Sub Stacy()

 

[Stacy Rueda]

Hi thank you for reply..this is japanese file, every time I changed NIGˆË—Šƒf�[ƒ^�ì�¬() into NIGRequirements() i also have error that says "Cannot run the macro" filename.xlsm!This workbook.NIG(Japanese characters). The macro may not be available in this workbook or all macros may be disabled.

 

[shg]

What is the code behind the button?

 

[Stacy Rueda]

Hi shg, this is the complete macro code

Public Sub NIGˆË—Šƒf�[ƒ^�ì�¬()


Dim columns As Integer

'ƒtƒ@ƒCƒ‹–¼‚ð�ì�¬ ƒtƒ@ƒCƒ‹–¼‚ÍŽ©•ª‚̃pƒX+\test.html
Dim strFNAME As String 'ƒtƒ@ƒCƒ‹–¼•Û‘¶—p
strFNAME = ActiveWorkbook.Path & "\irai_result.txt" 'ƒtƒ@ƒCƒ‹–¼‚ð�ì‚é


'ƒe�[ƒuƒ‹ƒf�[ƒ^‚ð�ì�¬‚·‚éˆø�”�F(ƒtƒB�[ƒ‹ƒh�”,ƒtƒ@ƒCƒ‹–¼)
Call MAKE_CSV_FILE(6, strFNAME)


End Sub
'ƒtƒ@ƒCƒ‹–¼‚ƃZƒ‹‚͈̔ÍRANGE‚ðŽó‚¯Žæ‚è�A
'ƒtƒ@ƒCƒ‹‚ðŠJ‚«ƒJƒ“ƒ}‹æ�Ø‚è‚̃tƒ@ƒCƒ‹‚ð�ì�¬‚·‚é
Sub MAKE_CSV_FILE(iColumns As Integer, strFNAME As String)


'ƒtƒ@ƒCƒ‹‚ðƒI�[ƒvƒ“‚·‚é
Dim FNO As Integer 'ƒtƒ@ƒCƒ‹”Ô�†
FNO = FreeFile '‹ó‚¢‚Ä‚éƒtƒ@ƒCƒ‹”Ô�†‚ðŽæ�o‚·
Open strFNAME For Output As #FNO 'ƒeƒLƒXƒgƒtƒ@ƒCƒ‹‚ð�V‹K�ì�¬


'�s�A—ñ‚Ń‹�[ƒv‚ð�ì‚é
Dim y As Integer
Dim x As Integer
y = 4
Do While Cells(y, 1) <> ""


For x = 1 To iColumns '—ñƒ‹�[ƒv

If Cells(y, x) <> "" Then
If x = 1 Then
Print #FNO, Cells(y, x);
Else
Print #FNO, Chr(9) & Cells(y, x);
End If
Else
Print #FNO, Chr(9);
End If

Next x

Print #FNO, "" '‰ü�s‚Ì‚Ý�o—Í
y = y + 1
Loop


'ƒtƒ@ƒCƒ‹‚ðƒNƒ��[ƒY‚·‚é
Close #FNO


End Sub

 

[shg]

I have zero experience in using Excel in other languages. Perhaps someone else can help, Stacy.

Good luck.

 

[Stacy Rueda]

No problem shg. Thank you

I hope someone can help us both.

 

[Norie]

Are you copying the code directly from Excel VBA into your posts here?

 

[thisoldman]

I don't know if this will work: change the font in the VBA editor.

Under Tools >> Options >> Editor Format >> Font:
Select a font where the Japanese characters display correctly.
Try running the macro.