workBook = App.Workbooks.Add(misValue) Dim worksheet = workBook.ActiveSheet With WorkSheet Dgv1.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText Dgv1.SelectAll() Dim str As String = TryCast(Dgv1.GetClipboardContent().GetData(DataFormats.UnicodeText), String) Clipboard.SetText(str, TextDataFormat.UnicodeText) '.Range("A1:" & ConvertToLetter(DGV1.ColumnCount) & DGV1.RowCount).Numberformat = "Text" 'set format excel. .Range("A1:" & ConvertToLetter(Dgv1.ColumnCount) & Dgv1.RowCount, misValue).Select() .Paste() Clipboard.Clear() End With
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง