Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/solutena/excel-xml
https://github.com/solutena/excel-xml
conflict excel git macro merge unity vba xls xlsm xlsx xml
Last synced: 23 days ago
JSON representation
- Host: GitHub
- URL: https://github.com/solutena/excel-xml
- Owner: solutena
- Created: 2024-05-13T00:14:16.000Z (9 months ago)
- Default Branch: main
- Last Pushed: 2024-05-13T00:47:23.000Z (9 months ago)
- Last Synced: 2024-11-12T20:46:53.541Z (3 months ago)
- Topics: conflict, excel, git, macro, merge, unity, vba, xls, xlsm, xlsx, xml
- Homepage:
- Size: 2.93 KB
- Stars: 2
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
# Excel-XML
엑셀에서 XML을 편리하게 사용할 수 있는 기능을 제공합니다.
Git에서 엑셀이 충돌하여 병합하고 싶을 때 간단히 해결할 수 있습니다.
# VBA
```
Sub Export()
On Error GoTo ErrorHandler
Dim XmlMap As XmlMap
Dim FileName As String
Dim FilePath As String
Set XmlMap = ActiveWorkbook.XmlMaps("Array")
FileName = Split(ThisWorkbook.Name, ".")(0)
FilePath = ThisWorkbook.Path & "\" & FileName & ".xml"
ActiveWorkbook.SaveAsXMLData FilePath, XmlMap
ActiveWorkbook.Save
MsgBox FilePath & vbCrLf & "XML 데이터를 성공적으로 내보냈습니다.", vbInformation
Exit Sub
ErrorHandler:
MsgBox "XML 데이터를 저장하는 도중 오류가 발생했습니다.", vbCritical
End Sub
Sub ImportSchema()
Dim FileName As String
Dim FilePath As String
FileName = Split(ThisWorkbook.Name, ".")(0) & "_Schema"
FilePath = ThisWorkbook.Path & "\" & FileName & ".xml"
If Dir(FilePath) <> "" Then
If MsgBox(FilePath & vbCrLf & vbCrLf & "스키마를 다시 불러오시겠습니까?", vbYesNo) = vbYes Then
For i = ActiveWorkbook.XmlMaps.Count To 1 Step -1
ActiveWorkbook.XmlMaps(i).Delete
Next
ActiveWorkbook.XmlMaps.Add(FilePath).Name = "Array"
End If
Else
MsgBox FilePath & vbCrLf & vbCrLf & "스키마 파일이 존재하지 않습니다.", vbExclamation
End If
End Sub
Sub ImportXML()
Dim XmlMap As XmlMap
Dim FileName As String
Dim FilePath As String
FileName = Split(ThisWorkbook.Name, ".")(0)
FilePath = ThisWorkbook.Path & "\" & FileName & ".xml"
If MsgBox(FilePath & vbCrLf & vbCrLf & "XML을 불러와 데이터에 덮어쓰시겠습니까?", vbYesNo) = vbYes Then
Set XmlMap = ActiveWorkbook.XmlMaps("Array")
XmlMap.Import Url:=FilePath
End If
End Sub
```
## 함수 설명
`Export`
"엑셀파일이름" 이름으로 된 XML을 내보낸 후
엑셀을 저장 합니다.
`ImportSchema`
"엑셀파일이름_Schema" 이름으로 된 스키마를 읽어옵니다.
개발도구 > 원본 에서 새롭게 매핑을 해주시면 됩니다.
`ImportXML`
"엑셀파일이름" 이름으로 된 XML을 읽어와 데이터에 덮어씁니다.
git에서 엑셀이 컴플릿이 났을 때
올바르게 병합된 XML으로부터 데이터를 덮어 쓸 수 있습니다.
## 사용법
Visual Basic에 들어가 모듈에 VBA 함수를 추가 합니다.
데이터를 작성 후 버튼을 만들어
각 버튼의 매크로 지정에 함수를 적용하면 됩니다.
XML로 추출할 데이터의 예제입니다.
# Unity
## XML 예제
```
using System.Xml.Serialization;
public class Message
{
[XmlAttribute] public string key = string.Empty;
[XmlAttribute] public string text = string.Empty;
}
```
XML로 추출할 데이터의 예제입니다.
## Unity-XML
```
const string xmlExtension = ".xml";
public static readonly string streamingPath = Application.streamingAssetsPath + "/";
public static void ExportXML() where T : new()
{
T[] target = { new T(), new T() };
string key = typeof(T).FullName + "_Schema";
string path = streamingPath + key + xmlExtension;
var serializer = new XmlSerializer(typeof(T[]));
using XmlTextWriter writer = new(path, Encoding.UTF8);
writer.Formatting = Formatting.Indented;
serializer.Serialize(writer, target);
Debug.Log("내보내기(" + key + ") : " + path);
}
public static T[] ImportXML()
{
string key = typeof(T).FullName;
string path = streamingPath + key + xmlExtension;
Debug.Log("불러오기(" + key + ") : " + path);
var serializer = new XmlSerializer(typeof(T[]));
using StringReader stringReader = new(File.ReadAllText(path));
return (T[])serializer.Deserialize(stringReader);
}
```
`ExportXML`
"클래스명_Schema" 이름으로 된 XML스키마를 내보냅니다.
스키마는 2개의 데이터로된 배열로 만들어 내보냅니다.
배열로 만들어야 엑셀에서 표의 형태로 생성됩니다.
`ImportXML`
"클래스명" 이름으로 된 XML을 데이터 배열로 불러옵니다.