ایجاد تبدیل جدول از اکسل به جیسون

کد VBA برای تبدیل جدول از اکسل به جیسون (Export Excel to JSON)

در دنیای امروز، تبادل داده‌ها اهمیت بسیار زیادی دارد، و یکی از رایج‌ترین فرمت‌های انتقال اطلاعات، فرمت JSON است. JSON، که مخفف JavaScript Object Notation، یک استاندارد سبک و قابل فهم برای ذخیره و انتقال داده‌ها است. به همین دلیل، کاربرانی که با اکسل کار می‌کنند، اغلب نیاز دارند تا داده‌های خود را به این فرمت تبدیل کنند، به خصوص در پروژه‌های وب، برنامه‌نویسی، و تحلیل داده‌ها. در اینجا، ما به بررسی کامل و جامع کد VBA برای تبدیل جدول‌های اکسل به فایل JSON می‌پردازیم، و چگونگی نوشتن و اجرای آن را شرح می‌دهیم، تا حتی کاربران مبتدی هم بتوانند این فرآیند را به راحتی انجام دهند.

اهمیت تبدیل جدول اکسل به JSON

قبل از شروع، باید بدانید که چرا این تبدیل اهمیت دارد. اکسل، یکی از محبوب‌ترین نرم‌افزارهای صفحه‌گسترده است، که برای مدیریت داده‌های عددی و متنی به صورت جدول طراحی شده است. اما در محیط‌های برنامه‌نویسی، وب، و سیستم‌های مدیریت داده، فرمت JSON جایگاه ویژه‌ای دارد، زیرا ساختار آن قابل خواندن و قابل تفسیر برای ماشین‌ها است و به راحتی با زبان‌های برنامه‌نویسی مختلف سازگار می‌شود. بنابراین، تبدیل داده‌های اکسل به JSON، این امکان را فراهم می‌کند که داده‌ها به صورت سریع، موثر، و بدون خطا انتقال یابند.

اصول اولیه کد VBA برای تبدیل جدول اکسل به JSON

کد VBA، زبان برنامه‌نویسی داخلی در اکسل است که امکان خودکارسازی و توسعه قابلیت‌های پیشرفته را فراهم می‌کند. برای نوشتن یک کد مناسب جهت تبدیل جدول‌ها به JSON، باید چند نکته مهم را در نظر داشت:
- خواندن داده‌ها: ابتدا باید داده‌های موجود در جدول اکسل به صورت صحیح خوانده شوند.

- ساختار JSON: ساختار خروجی باید مطابق با استاندارد JSON باشد؛ یعنی مجموعه‌ای از اشیاء (Objects) که هر کدام ویژگی‌ها و مقادیر خاص خود را دارند.

- نوشتن کد: کد باید بتواند داده‌های خوانده شده را به شکل مناسب در قالب JSON ساخته و ذخیره کند.

- ذخیره فایل: در نهایت، باید فایل JSON تولید شده در مسیر موردنظر ذخیره شود.
در ادامه، این مراحل به صورت جزئی‌تر بررسی می‌شود.

مرحله اول: آماده‌سازی جدول اکسل

قبل از نوشتن کد، باید مطمئن شد که جدول اکسل به درستی آماده شده است. فرض بر این است که جدول در شیت خاصی قرار دارد، و ستون‌های آن دارای عنوان هستند. مثلا، جدول در شیت "Data" و در سلول‌های A1 تا D100 است.

مرحله دوم: نوشتن کد VBA

کد VBA در محیط ویرایشگر VBA در اکسل نوشته می‌شود. برای این کار، ابتدا باید وارد محیط ویرایشگر شد:

1. کلیدهای Alt + F11 را فشار دهید تا وارد محیط VBA شوید.
   
   

1. در منوی Insert، گزینه Module را انتخاب کنید.
   
   

1. کد زیر را در پنجره باز شده وارد کنید.
   

   vba  
   
   

Sub ExportRangeToJSON()

Dim ws As Worksheet

Dim rng As Range

Dim data As Object

Dim json As String

Dim i As Long, j As Long

Dim headers As Collection

Dim rowData As Object
Set ws = ThisWorkbook.Sheets("Data") ' نام شیت موردنظر

Set rng = ws.Range("A1").CurrentRegion ' محدوده جدول
Set headers = New Collection
' جمع‌آوری عناوین ستون‌ها

For j = 1 To rng.Columns.Count

headers.Add rng.Cells(1, j).Value

Next j
Set data = CreateObject("Scripting.Dictionary")

data.Add "records", CreateObject("Scripting.Dictionary")
' حلقه برای هر سطر در جدول

For i = 2 To rng.Rows.Count

Set rowData = CreateObject("Scripting.Dictionary")

For j = 1 To rng.Columns.Count

rowData.Add headers(j), rng.Cells(i, j).Value

Next j

data("records").Add i - 1, rowData

Next i
' تبدیل دیکشنری به JSON

json = ConvertToJSON(data)
' ذخیره کردن فایل JSON

Dim filePath As... ← ادامه مطلب در magicfile.ir

باکس دانلود (ایجاد تبدیل جدول از اکسل به جیسون)

دانلود

پیشنهاد برای دانلود ( ایجاد تبدیل جدول از اکسل به جیسون )

برای دانلود کردن اینجا را کلیک فرمایید