আউটলুকের অনুলিপি করার আগে এক্সেল শীটে ডেটা ফর্ম্যাটিং বজায় রাখতে VBA কোড সংশোধন

Question

আমার একটি ভিবিএ আছে যা একটি এক্সেল শীট থেকে আউটলুক মেইল ​​শরীরে বিস্তারিত কপি করে: নীচে ম্যাক্রো:

Sub Send_Email()

Dim EmailSubject As String
Dim SendTo As String
Dim EmailBody As String
Dim ccTo As String

EmailSubject = "Test"
SendTo = "[e-mail]"


FirstRow = 1 
LastRow = 5
FirstCol = 1 
LastCol = 2 

For r = FirstRow To LastRow
For c = FirstCol To LastCol

For Each cell In Cells(r, c)
strtable = strtable & "  " & cell.Value
Next
Next
strtable = strtable & vbNewLine
Next

EmailBody = "Hi" & vbLf & vbLf & " body" & vbLf & vbLf & strtable & vbNewLine 

Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = EmailSubject
.To = SendTo
.CC = ccTo
.Body = EmailBody
.Display
'.Send
End With
Set App = Nothing
Set Itm = Nothing
End Sub

কিন্তু এক্সেল শীটের বিশদটি কিছু বিন্যাস সহ একটি ট্যাবুলার বিন্যাসে রয়েছে। তথ্য দৃষ্টিভঙ্গি কপি করা হয় যখন টেবিল এবং বিন্যাস, বজায় রাখা যাবে? যদি হ্যাঁ, কিভাবে?

Comments

উদাহরণস্বরূপ, আপনি ক্লিপবোর্ডে অনুলিপি পদ্ধতিটি ব্যবহার করে পরিসর নির্বাচন করে, এবং তারপরে, শরীরের সেটিংস পরিবর্তে, আপনি ব্যবহার করতে পারেন sendkeys "ctrl + v" (^ v) তে। একটি কী ম্যাক্রো পরিবর্তে পেস্ট করার জন্য একটি নিরাপদ / ভাল / প্রোগ্রাম্যাটিক উপায় থাকতে পারে

— Yorik

আপনি যদি টেবিলে চান তবে কেন টেবিলটি পুনর্নির্মাণের পরিবর্তে গ্রহণ করবেন না?

— Raystafarian

টেবিল কপি কিভাবে? আপনি আমাকে সেই স্থানগুলি দেখাতে পারেন যেখানে আমাকে কোড পরিবর্তন করতে হবে এবং কোন পদ্ধতিগুলি ব্যবহার করতে হবে? @Yorik

— LoneWolf91

টেবিলের কপি কিভাবে @ রাইস্টাফারিয়ান

— LoneWolf91

আমি আপনার কোড বুঝতে না, এটা দৃষ্টিভঙ্গি বা এক্সেল হয়? কি ভেরিয়েবল টার্গেট এক্সেল?

— Raystafarian