- ©«¤l
- 1
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 2
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- win10
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯¥«
- µù¥U®É¶¡
- 2021-8-28
- ³Ì«áµn¿ý
- 2021-8-30
|
[µo°Ý] n¦p¦ó§âVBA©Ò²£¥Íªº ÀÉ®× ¦s¦¨ UTF-8½s½X?
¥»©«³Ì«á¥Ñ CCL99 ©ó 2021-8-29 00:00 ½s¿è
§Ú¥ÎExcel ¨Ó¼gHTMLµ{¦¡¡AªB¤ÍÀ°§Ú¼g¥¨¶°§âExcelÂন¯Â¤å¦rÀɪº HTML¡A¥i¬O³o¯Â¤å¦rÀɪº½s½X¬OANSI µLªkÅý§Ú¥¿±`¨Ï¥Î¦h¦ì¤¸¦r¦p utf-8 ©Î utf-16¡C
¦b¥H¤Uªº¥¨¶°µ{¦¡½X¡An¼W¥[¤°»ò½X¤~¯à§â²£¥ÍªºÀɮצs¦¨utf-8½s½X?- Public Sub WriteFile()
- Const FileNum = 1
- Dim FilePath As String
- Dim R As Long
- Dim C As Long
- Dim Outline As String
- Dim LastRow As Long
-
- FilePath = Replace(ThisWorkbook.FullName, ".xlsm", ".html")
-
- Open FilePath For Output As #FileNum
-
- R = 1
- LastRow = Cells(Rows.Count, "B").End(xlUp).Row
-
- For R = 1 To LastRow
- Outline = ""
- For C = 1 To 21 ' B to U
- Outline = Outline & Cells(R, C)
- Next C
- Print #FileNum, Trim(Outline)
- Next R
-
- Close #FileNum
-
- MsgBox "File complete."
- End Sub
½Æ»s¥N½X |
|